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ABSTRACT 


In a typical object-oriented system, there are two kind of variables: those 
which are private to instances(objects) and those which are shared by all instances 
of a class. Variables may also be declared in some object-oriented languages as 
private, public, or subtype visible which affects the access to the data. However 
we know of no object-oriented programming which allows data(variables) to be 
declared as private for specific methods only. The purpose of this thesis is to 
propose a solution to the problems of implementing and maintaining both shared 
and private data at various levek within an object-oriented environment. 
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I. INTRODUCTION 


A. BACKGROUND 

Object-oriented programming (OOP) is a new approach to programming. 
Many people believe that OOP is the future of progranuning languages and also 
that it can improve the development of software. The main reason for this 
evolution of programming languages is the necessity of the human mind to be 
able to express ideas, and also to be able to more easily model real world 
activities with a computer program. Ever since the first computer languages 
appeared, the human mind has always tried to find ways to express thoughts 
and ideas more easily. This is the main reason why man builds newer high level 
languages every day which are closer to his way of thinking. 

Thus (X)P is rapidly becoming a popular approach to the construction of 
complex software systems. Benefits of object-orientation include support for 
modular design, code sharing, reuse, and extensibility. 

The main purpose of this research is to observe different types of variables 
in object-oriented programming in different kinds of environments. The initial 
starting point for this research stems from the problems encoimtered during die 
development of an object-oriented model of the software controller of the Naval 
Postgraduate School (NPS) Autonomous Underwater Vehicle (AUV) [BN911. The 
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C ORGANIZATION 


The remainder of this thesis is divided into four chapters. Chapter D 
introduces the basic concepts of object-oriented progranuning, concurrency, and 
distributed systems. Chapter in investigates variables in an object-oriented 
programming environment with a special attention to sharing data. In Chapter 
IV, various solutions are suggested. Chapter V contains the conclusions and 
recommendations for future research. The computer code developed during the 
course of this thesis is contained in Appendices A through G. 
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II. BACKGROUND 


In this chapter we survey the literature on object-oriented concepts, 
concurrency, and distributed systems. 

A. OBJECT-ORIENTED CONCEPTS 
1. Basic Concepts 

In this section we give a brief description of the basic concepts of object- 
oriented programming. Since this area is still relatively young, there are no 
standard definitions yet within the object-oriented community [Nel90a]. However 
the following basic concepts are found in most object-oriented languages. 

a. Classes 

"Objects which share the same behavior are said to belong to the 
same class" ([WWW90]: pp.22). A class defines a group of similar objects with the 
same structure and behavior. Any object generated from a given class has the 
same set of information (the structure) and abilities (the behaviors). The structure 
of a class is represented by the variables, and the behavior is represented by the 
methods existing for each class. 

A brief (but good) description of a class is given in the following 

statement: 
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"Class is indeed the technical term that will be applied in object- 
oriented languages to describe such sets of data structures characterized by 
common properties." ([Mey88]: pp.52) 

We can picture a class as a factory that produces products with the 
same main properties, with no limits to the number of products. We cannot have 
two objects with different structures widiin the same class. For example, consider 
a class car; it can be thought of as vehicle factory that produces a certain car 
model. All objects of the class have the same structure. 

Classes can be related to one another by inheritance; we say that 
a subclass inherits the structure and behaviors (i.e., the variables and methods) 
of its superclass. The subclass may, in turn, serve as the superclass for another 
subclass. This leads to a hierarchy of classes in which we can talk about ancestor 
and descendant classes. This will be discussed further in Section 2. 

b. Objects 

An object is an instance of a class. Objects that belong to the same 
class have common structures and behaviors. Actually, we can say that the object 
is the first and main element in object-oriented programming because when we 
start thinking about how to detine the class we first try to specify and categorize 
each needed object. Several objects from the same class can exist at the same 
time, and all of them have the same main properties. As we will see later, these 
are the variables and methods. 
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Referring to our previous example, the class car can be used to 
produce several instances, each with the same basic structure and set of 
behaviors. Our_car, a particular car with our options (color, whether it is 
automatic, etc.), is an instance of the class car. Since an object is generated from 
a class, the variables and the methods of the class exist for every object. That is, 
our.car will have the same set of variables and methods that every other instance 
of the class car has. 

c. Methods 

The operations or procedures that an object knows how to perform 
are called methods. A method is similar to a function definition or procedure call 
in conventional languages. A method deals only with objects of the class within 
which it is contained (defined), and can be activated only by sending a message 
to the object. A message consists of the name of a method along with any 
required arguments including the name of the object and any parameters. Each 
time an object receives a message it performs the requested operation by 
executing the appropriate method. 

Another definition of method is that it is the step by step algorithm 
executed in response to the received message where the name in the message 
matches the name of the method [WWW901. Sending a message is more general 
than calling a function because different objects can respond to the same message 
in different ways; as we will see later, this is known as polymorphism. 
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In our car example, we might have the method start.engine 
defined for the car class. We could then send this message to oui.cai in order 
to start its engine. 

Methods can be categorized as either class methods or instance 
methods. Messages sent to a class cause a class method to be executed while 
messages sent to objects cause an instance method to be executed. 

d. Variables 

There are two kinds of variables in an object-oriented language: 
class variables and instance variables. 

(1) Class Variables. "A class variable is shared both in name and 
value by all instances of a class" ([Nel91al: pp.4). We can consider these variables 
to be global for any object of that particular class. 

For example, in our car class we could have the class variable 
number_of_wheels which is the same for every instance (object) of this class. 
This variable is the same for every object. Therefore, if it were to change, all 
objects immediately change as they all share access to this same class variable. 

(2) Instance Variables. "An instance variable is shared in name 
only, not in value, by all instances of a class" ([Nel91a]: pp.4). Whereas class 
variables can be thought of as global to all the instances of a dass, instance 
variables can be considered as the private data of each object. 
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In our example car class we could have the instance variable 
serial_number. All car objects will have this variable, but the value for each 
object is different. 

e. Private, Public, and Subtype Visibility 

Both variables and methods can be divided into three categories 
which define their visibility to subclasses and end-users. These three categories 
are as follows: 

• Public 

• Private 

• Subtype visible 

When a variable or method is declared to be public we mean that 
anyone has access to it from inside or outside the class. A public variable may 
have the additional attributes of read-only or writable outside the owner class 
(i.e., anyone may be able to read it, but they may not be able to change it). When 
we declare a method to be public we also mean that it is a part of the published 
or public interface. We must point out here that since public variables and 
methods can be accessed by anyone, it can be very costly to change them [RB91]. 

The private property is the opposite of public. When we declare 
data or methods to be private we mean that they can only be reached by methods 
declared within that class. Private methods and variables are internal to a class. 
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Therefore we can modify them or even delete them more easily as this will only 
impact other methods of the same class. 

Subtype-visible is something between these two extremes. 
Subtype-visible variables or methods can be reached only by methods declared 
inside the same class or its descendant classes. End-users, however, cannot 
directly access these variables or methods. 

2. Properties of Object-Oriented Languages 
a. Reusability 

"Reusability is the ability of a system to be reused, in whole or in 
part in order to construct a new system" ([Mic88]: pp.l3). Reusability is one of 
the major advantages of object-oriented languages because it reduces the cost of 
designing, coding, and testing. 

(1) Instantiation. This term is used in object-oriented languages 
when we generate an instance (object) of a class. When we say instatiate we 
mean that we create a new object of a class. Every time we instatiate an object 
we are reusing the class definition. That is, each time that we instatiate an object 
a class serves as a template which provides the variables and methods. 

In object-oriented programming we can have statically or 
dynamically instantiated objects. Statically instantiated objects must be 
declared/instantiated at compile time, whereas dynamically instantiated objects 
may be instantiated at run time. 
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(2) Inheritance. "Inheritance can be defined simply as a code 
sharing mechanism" ([NeI91a]: pp.5). An inherited class may be defined as an 
extension or restriction of another class [Mey88]. In other words, inheritance 
allows us to reuse the definition of a previous class in the creation of a new one. 
This new class is called a subclass of the first one, which is called the superclass. 
In the case that we can inherit from only a single class we have a simple or single 
inheritance. If, on the other hand, we can inherit from many classes we have 
multiple inheritance (MI). 

What about inherited class variables in the subclass? There 
are two different aspects in the way that class variables can be implemented in 
inheritance. The first notion implements the class variable as a global variable for 
all classes related by inheritance, which implies the ability to change the value 
from any class. That is, a single class variable is shared by all the classes related 
by inheritance. Alternatively, changing a value in any class does not modify the 
value of the other classes related by inheritance. That is, the class variable is in 
effect duplicated for each new subclass. [Nel90a] 

(3) Polymorphism. "Polymorphism (sometimes called operator 
overloading or function overloading) can be defined as allowing different data 
types (classes) to have methods (routines) with the same name which may be 
implemented differently" ([Nel90al: pp.4). The ability of different objects to 
respond to the same message is called as polymorphism. Even when the same 
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message is sent from the same place in code, it can invoke different methods, 
depending on the object it is sent to [SB86]. 

There are two forms of polymorphism: simple polymorphism 
and multiple polymorphism (Nel90a, Mic88]. With simple polymorphism, each 
class may have its own implementation of an operation. With multiple 
polymorphism, a single class may have several operations with the same name. 

(4) Genericity. "Generidty is the ability to parameterize modules. 
The need for this facility is particularly clear for classes representing general data 
structures: arrays, lists, trees, matrices etc" (lMey88]: pp.l04). One common form 
of genericity is the abstract data type (ADT). An ADT is a data structure with a 
set of associated operators in which the implementation details are hidden, 
allowing the user to reference the ADT with implementation-independent code. 
This allows the physical implementation of the ADT to be changed without 
affecting the user-written code. Since the class definition is a form of an ADT, the 
class itself represents one form of genericity. [Nel91a] 

The generic module is a module pattern and is not directly 
usable. Instances of the generic module are obtained by providing real types for 
each of the generic parameters. It is a technique that is used to avoid some of the 
requirements of static type checking. 
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b. Extensibility 

Extensibility is the facility in a software system to change or 
modify anything we need in accordance with our requirements in order to 
produce a new class from an existing one. This is achieved through the use of 
inheritance in object-oriented languages. 

Extensibility is easy when dealing with small and simple programs, 
but is more difficult in larger programs. Thus, the problem of extensibility is a 
problem of scale because as the programs grow larger, the problem of adaptation 
also becomes harder [MeySSj. 

There are two principles essential to improve extensibility in the 
designing of classes [Mey88]: 

• Design simplicity, it is easier to adapt changes when we have a simple 
structure in a class rather than a complex one. 

• Decentralization: we have more possibilities that the changes will be in one 
class and will not affect a chain reaction of changes over the whole system. 

3. Object-Oriented Languages 

Object-oriented languages can be categorized into two fanulies. The 
first family contains those languages with the object-oriented features added to 
an existing language, and we refer to this family as bolted-on languages. The 
second family contains those languages which are designed and constructed 
around the principles of object-oriented programming, and we refer to this family 
as built-in languages.[Nel90a] 
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a. Classic-Ada 


Classic-Ada [Sof89, NM921 is an object-oriented preprocessor for 
Ada [Boo87]. It is a preprocessor because it converts the programs written in the 
Classic-Ada language into standard Ada, and the resulting programs are then 
compiled with a standard Ada compiler. It adds to Ada the concepts and features 
of an object-oriented language, including methods, objects, classes, and 
inheritance (thus, Classic-Ada is a bolted-on object-oriented language). 

Class deflnitions are divided into specifications and bodies, similar 
to package specifications and bodies in Ada. The terminology and reserved 
words used in Classic-Ada are very similar to the basic concepts of other object- 
oriented languages. Classic-Ada supports single inheritance but does not support 
multiple inheritance. Every class needs at least one method, the method create for 
the creation of objects from this class; this method is a class method. If we want 
to have a method by which objects of classes are reclaimed we need a second 
method delete, which is an instance method. These are the only methods that we 
cannot inherit from an ancestor class; they must be declared anew for each new 
class. 

Methods and variables are classified by the reserved word instance 
if they are instance methods or instance variables. If they are class methods or 
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variables we do not put any reserved word before then\ as the default is a class 
method or variable*. 

Classic-Ada does not support the concepts of private, public, and 
subtype visible. All variables are by default subtype-visible, and all methods are 
public. 

To accomplisii dynamic binding Qassic-Ada uses the reserved 
word send, which is a fairly couimon approach for many boUed-on object-oriented 
languages [Nivi''.2]. 

Since Classic-Ada is an extension of the Ada Language, which does 
support concurreii 7 , a concurrent Classic-Ada program is therefore possible 
[Nel91bl. 

b. C++ 

C++ [WP 88 ] is an extension of the p)opular C language, adding 
special features for object-oriented programming. Thus, C++ is a bolted-on 
language. C++ was originally a preprocessor for the C language, but C++ 
compilers are now available. 

C++ supports encapsulation, combining data abstraction with 
methods to manipulate data into a class-type object. The reserved words class, 
union, and struct are used for the declaration of a class. The major difference 


’The Qasslc User's Manual [Sof89l does not specifically mention class 
variables and class methods. This 'feature' was discovered through 
experimentation. 
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between them is the accessibility of the members, because many versions of C++ 
language support the concepts of public, private, and protected (note that in C++ 
temunology, the term protected is used rather than subtype-visible). All versions 
of C++ support single inheritance, and multiple inheritance is now supported in 
some versions. 

Polymorphism in C++ is accomplished by placing the reserved 
word virtual before the functions (methods). Virtual functions allow you to use 
many versions of the same function throughout a class hierarchy, with the 
particular version to be executed being determined at run time. 

Messages are sent to objects using a mechanism similar to that used 
to invoke a function (object_name.function _name(argument)). Since C is a 
pointer language we can also send a message with a pointer if we have a pointer 
that points to an object (object_pointer -> function_name (argument)). 

C++ provides a special type of member function with the reserved 
word constructor. A constructor spTedfies how a new object of a class type will be 
created. The deallocation of the memory is achieved with the method destructor. 

C++ does not include any constructs for handling concurrency. 

c. Smalltalk 

One of the first true object-oriented languages was Smalltalk 
[Seb89]. According to our previously discussed classification of object-oriented 
languages, Smalltalk is a built-in language. 
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Smalltalk is an interpretive language which uses an intermediate 
compiler. As an interpretive language it provides rapid testing of incremental 
changes to the image. Many problems can be solved by using or modifying 
existing classes and methods. 

All programming in Smalltalk is accomplished by sending 
messages to objects. It supports three kinds of messages: unary, binary, and 
keyword. Smalltalk supports both dass and instance methods. 

Smalltalk variables come in two varieties. The first is private 
which means they are local to an object, and the second is shared which means 
they are visible outside the object in which they are declared. Determination in 
the program is achieved by using lower or uppercase letters. Private variables 
must begin with lowercase letters, while shared variables begin with upp>ercase 
letters. 

Inheritance in Smalltalk is also supported. However, only a single 
hierarchy is supported, and all classes must be descendants of the root dass 
object. We have the ability to rename, modify, or add any inherited variable or 
method. 

Smalltalk indudes a Forl^ construct, so we can run processes 
concurrently. But we must point out that they are essentially run sequentially on 


^Fork, is a control structure for indicating parallelism. It creates two 
concurrent processes, one at label and one at statement following the Fork 
statement. [Dei90] 
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a uniprocessor. The reason for this is that each process runs until finished or 
stopped for a reason and then the next process starts to run, etc. A Yield 
statement which is also provided by Smalltalk allows processes to yield to the 
processor at any time, but true non-determinism is not possible in standard 
Smalltalk. [SN90] 

d. Actor 

Actor^ is very similar to Smalltalk, and Actor is also a built-in 
object-oriented language. Actor is an interpretive language which provides rapid 
testing of incremental changes to the image. Many applications can be built by 
using or modifying existing classes and methods. 

Inheritance is also supported in Actor. Like Smalltalk, only single 
inheritance is supported, and all classes must be descendants of the root class 
object. We have the ability to rename, modify, or add any inherited variable or 
method. 

Actor supports both class and instance methods and also class and 
instance variables. Class variables must start with the sign '$' and then follow 
with the first letter being capitalized, instance variables must not capitalize the 
first letter and there is no special character in front. Although Actor has global 
variables that are similar to those in traditional languages, they are accessible 


•’It should be realized that we are discussing the language Actor which is 
registered trademark of the Whitewater Group, Inc. (a registered servioemcirk) 
[Act90]. This language is not associated with the Actor model [Agh88]. 
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from anywhere in the program. They are used most often during the testing of 
the program. 

Actor does not include any constructs for handling concurrency. 

B. CONCURRENT PROGRAMMING 
1. Conventional Concurrency 

Concurrent execution is conventionally viewed in terms of autonomous 
sequential processes executing in parallel [BLW87]. In concurrency we usually 
deal with processes which may run at the same time. These processes may run 
separately from one another, which means that there is no exchange of 
information between the processes. Each one starts and stops processing without 
waiting on the others for any reason. 

It is also possible that we need some level of cooperation between the 
processes. This case is called asynchronous, which means that the processes may 
require occasional synchronization and cooperation [Dei90]. 

Thus the correct behavior of a concurrent program is dependent upon 
the necessary synchronization and communication between its processes. 
Synchronization is concerned with the action(s) that have to occur in one process 
before an action of another process. Communication deals with the information 
passing between processes. 

The problems we need to solve in a concurrent programming 
environment include the following: 
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a. Message Passing 

Message passing is simply a way of passing information from one 
process to another. Message passing between two processes involves four issues 
[BLW87]. These four issues are: 

• process naming 

• synchronization 

• message structure 

• failure on communication 

Process naming deals with the address that a message is sent to. 
We can directly address the process that is going to receive a message. 
Alternatively, we can just name the channel or the communication port where the 
message is to be sent, and it is assumed that the receiver will eventually receive 
the message. The first case has the advantage of simplicity, and the disadvantage 
that we cannot change the receiver of the message at run-time. The second case 
has the advantages that we can change the message destination at the run-time, 
or we can have an anonymous process as a receiver. 

Synchronization is the need for the mutual acknowledgement 
between the sender and receiver of a message. When the sender continues 
executing immediately after sending the message we have asynchronous message 
passing. When the sender waits (i.e., is blocked) until the receiver accepts the 
message we have synchronous message passing. 
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Virtually any data structure can be transmitted within a message, 
possibly subject to size limitations imposed by the system. 

The necessity of handling a communication failure is more of a 
necessity in networks and distributing systems. 

b. Shared Variables 

Shared variables in concurrent programs are the case in which we 
have data shared between different processes. When one process accesses the 
shared variable, we must keep any other process wishing to do the same from 
doing so until the first process finishes access to the shared variable*. We say 
that each process requires exclusive access, which is referred to as mutual 
exclusion. When a process is accessing shared data it is said to be in a critical 
section, and the shared data is often called critical data. [Dei90] 

2. Concurrency in Object-Oriented Programming 

In the real world many things exist and do things concurrently. Object- 
oriented programming systen« show great potential for use in designing and 
building concurrent systems as many objects can exist and do things 
concurrently. [NeI90c] 

In concurrent object-oriented programming there are many ways that 
we can have concurrency. Different objects could execute various methcxls at the 

* Access to shared variables may also be modeled after the Readers and 
Writers problem [Dei90]. This approach allows any number of readers (with no 
active writer) or a single writer (with no active readers) at any p>oint in time. 
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same time, different methods can be executing in the same object at the same 
time, or a single object (instance) could be executing a single method which does 
several things concurrently. Of course, these three possibilities can be combined - 
that is, several objects, each executing several methods, each of which does 
several things concurrently. [Nel90c] 

Unfortunately, we still have most of the same problems that we have 
with any concurrent language when we move into the object-oriented 
environment. The major problem is in controlling the concurrent activities during 
program execution. 

Concurrency can be achieved in a computer system which has only a 
single processor (i.e., a uniprocessor)® or in a computer system which contains 
two or more processors (i.e., a multiprocessor). In both cases we have to deal 
with the messages that objects send to one another to achieve successful 
execution. 

C DISTRIBUTED PROGRAMMING 

1 . Conventional Distributed Systems 

A distributed computer system contains multiple autonomous 
processing elements cooperating for a common purpose or to achieve a common 
goal. Distributed systems can be divided into two main categories [BT88]: 

® Obviously, we can only have simulated concurrency on a uniprocessor as 
only one thing may execute at a time. 
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• tightiy coupled: systems that have a common memory; 

• loosely coupled: systems that do not have a common memory. 

Note that communication between processes in a loosely coupled 
system must be via some form of message passing. Thus, these two categories 
can also be thought of as those which communicate through shared data, and 
those which communication via message passing. 

One efficient implementation for shared data in distributed system is 
the use of replication [BT88]. Another possibility is the use of the same 
techniques that are used in concurrent systems, such as mutual exclusion, 
monitoring, etc. 

The most important differences between shared data and message 
passing are as follows [BT881; 

1. The process sending a message must know some form of identity of the 
receiver. 

2. When making a new assignment there is a delay in sending the message 
from one process to another; with shared data the assignment has an 
immediate effect. 

3. A message sent from one process to another is more secure than shared 
data which is reachable by anyone. 

4. To exchange messages between processes we may need synchronization. 
However to access shared data we definitely need synchronization between 
the processes (i.e., this is a classical mutual exclusion problem). 

5. When passing a message it maybe difficult to pass a complex data 
structure; with shared data this difficulty does not exist. 





2. Distributed Object-Oriented Programming 


The main goal in distributed object-oriented programming systems is 
to establish a distributed object manager that allows several different systems to 
share objects [BT88]. 

The development of distributed systems has been partly motivated by 
the desire to extend the limited set of sharable resources of a particular computer 
system to a large, possibly unlimited, set of network resources. Resource sharing 
poses the problems of naming, protection, and consistency. 

There are currently several development projects concentrating on high 
performance system kernels for distributed systems. They all support a client- 
server approach, in which the servers can manage data on behalf of external 
clients. An alternative approach is to have direct invocation of (possibly remote) 
objects. Each object is executed in its own virtual address space. [Hor90] 
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III. STUDYING VARIABLES IN OBJECT-ORIENTED SYSTEMS 


In this chapter we analyze and detine the sharing of variables in an object- 
oriented environment. As discussed in Chapter n, a class consists of variables 
which are defined in the class definition. The values of these variables have one 
of the following properties: they are either shared between the instances (objects) 
of a class or they are independent for each instance (object) of a class; that is, they 
are either class variables or instance variables. 

Before observing the variables and sharing of data in an object-oriented 
system, it is first necessary to define the execution environment. We begin with 
a brief description of the different terms to be used. Unfortunately, these terms 
are often used in a rather confusing manner within the computer science 
community - the same term may be used differently or different terms may be 
used the same [Nel90c]. 

A process is the smallest part of a program which may be control'ad as a 
separate entity. A concurrent process is simply one which may be executed at the 
same time as other concurrent processes. Multiprocessing is the ability to give the 
appearance of executing two or more processes concurrently, regardless of the 
number of processors involved. A parallel system is one which supports true 
multiprocessing (i.e., two or more processors are used). 
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A uniprocessor is a computer system which has only a single processor. A 
multiprocessor is one which contains two or more processors. 

In this chapter we discuss the various types of execution in an object- 
oriented programming environment and the results obtained with different types 
of variables. We will classify the execution type as either sequential or 
concurrent. 

Figure 1‘ shows how class definitions can be presented in a language- 
independent manner. In this example, the class Alpha has one class variable (cv), 
one instance variable (iv), and three methods (Method_X, Method_Y, and 
Method_Z). The class Beta defines no new variables or methods, but inherits all 
of the variables and methods defined for the class Alpha. 


Qass Alpha 

Superclass: 

none 

Class variable: 

cv 

Instance variable: 

iv 

Methods: 

Method_X 

Method_Y 

Method_Z 

Qass Beta 

Superclass: 

Alpha 

Class variable: 

none 

Instance variable: 

none 

Methods: 

none 


Figure 1 Class Alpha and Beta Definitions 


*The language -independent class definitions are modeled after those foimd 
in [Nel90al. 
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We can define several instances (objects) for each class. For example, 
objectAl, objectA2, and objectA3, for class Alpha; and objectBl, objectB2, and 
objectBS for class Beta. 

Figure 2 gives one representation of the classes and their instances. The 
classes are presented in this way as it is similar to block scoping diagrams used 
for conventional language systems, and it makes the concept of sharing data in 
an object-oriented environment more understandable. Note, however, that this 
diagram does not show that a single class variable (cv) is shared by both Alpha 
and Beta. 

Several Classic-Ada programs have been generated to study various aspects 
of variables. Various tests are conducted in both sequential and concurrent 
modes of execution. 

A. SEQUENTIAL EXECUTION 

The term sequential execution is used in those cases where processes are 
executed sequentially. Although sequential execution is the simplest case, the 
effects of inheritance cannot be omitted. Thus, both classes with inheritance and 
classes without inheritance are studied. 

1. Classes Without Inheritance Relation 

Classes without inheritance are simply ones which are not descended 
from other classes. Thus, we will only consider a class Alpha. 
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a. Class Variable 


As discussed in Chapter n, a class variable is a variable shared by 
name and value in both all instances (objects) of the class. To illustrate the use of 
class variables in a sequential environment, we will define the class Alpha as 
presented in Figure 3. 


Class Alpha 


Superclass: 

none 

Class variable: 

cvl 

Instance variable: 

none 

Methods: 

Set_class_variable 


Get_class_variable 


Create 


Delete 


Figure 3 Class Alpha Definition 


The method Set_class_variable sets the value of the class variable 
(cvl), while the Get_class_variable returns its current value. The Create and 
Delete methods are used to create and delete instances (objects) of the class. 

The files giving the specification and implementation of the class 
Alpha are Alpha_spec_CV.ca and Alpha_body_CV.ca7 The main program, which 
creates instances of the class Alpha and manipulates them, is in the file 


’’ In Classic-Ada the declaration of a class requires two files. The first is the 
specification file which defines the name of the class and the names and types of 
its methods. The second is the body of the class where we specify the 
implementation of the methods and also define the variables and their types. 
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program_CV_ mexa and its output is in the file programjCVjonescript. All files 
discussed in this section are contained in Appendix A, Section A. 

This experiment was used to check the value of the class variable 
for different instances (objects) in the same class. This was done to ensure that 
the class variable was indeed shared in both name and value between different 
instances of a class. We create several instances (objects) of the class Alpha and 
then apply the methods in the following order. 

First, we declare the object and create it as an instance (object) of 
class Alpha using the Create method. 

Second, we invoke the Get_class_variable method to get the current 
value of the class variable for the instance. As can be seen in the output of the 
program, the first time that we call the Get_class_variable method for the first 
object the value is null since no value has been defined yet. For subsequent 
instances (objects), the value is that given to the previously defined instance 
(object). 

Third, we invoke the Set_ciass_variable to set the class variable to 
a specific value. For our program this can be any legal character. 

Fourth, we again invoke the C5et_class_variable to get the current 
value of the class variable at this instance. As can be seen in the output, the 
value of the class variable is equal to the character given in the Set_class_.variable 
method, as expected. 

Finally, we invoke the Delete method to delete the instance. 
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Looking at the output, we can see that Classic-Ada implements 
class variables as expected - they are shared in both name and value by all 
instances of a class. Note that we delete each instance before creating the next. 
These deletions have no effect on the class variable as it exists within the class 
Alpha. Its value is maintained even after the instance that last set the value is 
deleted. 

As a further test, we run another program (program_ CV_two.ca) 
with all the Etelete messages for the instances of the class at the end of the 
program. The output of this new main procedure is in the file program_CV_ 
two.script. In this way we keep the instances of the class Alpha 'alive' until the 
end of the main procedure. As expected, however, this coexistence of all 
instances does not change the previous results. It also shows that all instances see 
the latest value of the class variable. 

h. Instance Variables 

An instance variable is shared in name only by all instances of a 
class, as discussed in the last chapter. We now define the class Alpha as shown 
in Figure 4 to test this feature. The files with the specification and 
implementation of class Alpha are the Alpha_specJV.ca and AlphaJbodyJVxa. All 
the files used in this section are included in Appendix A, Section B. 

The main program file is programJVxa. Our goal here is to 
observe the value responses of an instance variable through different instances of 
a class. The output of the main procedure of the program is presented in the file 
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Qasa Alpha 


Superclass: 

none 

Cl^ variable: 

ivl 

Instance variable: 

none 

Methods: 

Set_instance_variable 


Get_instance_variable 


Create 


Delete 


Figure 4 Class Alpha IDefinition 


programJVscript. In this program we create several instances of dass Alpha and 
apply methods in the following order. 

First, we create an object and then invoke the Get_instance_variable 
method to get the current value of the instance variable for this instance. As 
excepted, this returns a null value as objects are created without any initial or 
default value for this variable. 

Next, we invoke the Set_instance_variable to set the instance 
variable with a value. Finally, we invoke the Get_instance_variable method to get 
the current value of the instance variable, which is the value set by the previous 
Set_ instance_variable method, as expected. 

As can be seen in the output of this program, the values of the 
instance variable of each instance are independent of all other instances of that 
dass. Indeed, instance variables are shared in name but not in value by all the 
objects of a dass. 
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2. Classes With Inheritance Relation 


Remembering that inheritance is a sharing mechanism, we expect to have 
some sharing of data between classes. Since we have code reuse in inheritcmce, 
the reuse of a class implies that we share the names and the types of the existing 
variables, and the names and parameters of the existing methods. 

a. Class Variables 

We will now use the classes Alpha and Beta as shown in Figure 5. 
Notice that in Classic-Ada it is necessary to define the methods Create and Delete 
for each class, even though it is appears that the methods should have been 
inherited from superclass [NM92]. The class Beta inherits all other variables and 
methods defined in the class Alpha. 


Class Alpha 

Superclass: 

none 

Class variable: 

cvl 

Methods: 

Set_class_variable 

Get_class_variable 

Create 

Delete 

Qass Beta 

Superclass: 

Alpha 

Class variable: 

none 

Instance variable: 

none 

Methods: 

Create 

Delete 


Figure 5 Class Alpha and Beta Definitions 
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The files of class Alpha and Beta are Alpha_spec_CV£a and 
Alpha_bod\f_CV.ca, and the Beta_specJZVjca and BetaJbodyjCVxa resp)ectively. All 
files used in this section are contained in Appendix B, Section A. 

In this experiment we want to observe the response of class 
variable thought the inheritance mechanism between different objects.The main 
program is programjCVJnherxa, and its output is contained in 
program_CV_inher.script. Objects are created and manipulated in the following 
order: 

• First instance of class Alpha (object Al) 

• First instance of class Beta (object Bl) 

• Second instance of class Alpha (object A2) 

• Second instance of class Beta (object B2) 

We then invoke messages in the following order. 

First, we declare and create the objects. 

Second, we invoke the CJet_class_variable to get its current value. 
As expected, the first time that we call the Get_class_variable method on the first 
object the current value of class variable is null since we do not define any default 
or initial value. After that, we get the value set by the previous object, also as 
expected. 

Third, we invoke the Set_class_variable to set the class variable to 

a new value. 
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And finally, we again invoke the Get_class_variable method. As 
expected, the value is that which was set in the previous Set_class_variable 
method. 


Notice that the value set for each instance is reflected as the 'initial' 
value for the next object, regardless of class membership (i.e.. Alpha or Beta). 
Thus, the class variable is shared in both name and value between all instances 
of all classes related by inheritance. 

b. Instance Variables 

For this experiment we use the classes Alpha and Beta as shown 

in Figure 6 . 


Qass Alpha 

Superclass: 

none 

Class variable: 

ivl 

Methods: 

Set_instance_variable 

Get_instance_variable 

Create 

Delete 

Qass Beta 

Superclass: 

Alpha 

Class variable: 

none 

Instance variable: 

none 

Methods: 

Create 

Delete 


Figure 6 Class Alpha and Beta Definitions 
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The files with the specification and implementation of class Alpha 
and Beta are the Alpha_spec_IV£a and Alpha_body_IV.ca and Beta_specJVjca and 
Beta_bodyJV.ca, respectively. The main program is the program_IV_inher.ca, and 
its output is in the file programJVJnherscript. All files for this section are in 
Appendix B, Section B. Objects are created and manipulated in the following 
order: 

• First instance of class Alpha (object Al) 

• First instance of class Beta (object Bl) 

• Second instance of class Alpha (object A2) 

• Second instance of class Beta (object B2) 

Methods are invoked on the objects in the following order: 

First, objects are declared and created. 

Second, we invoke the Get_instance_variable method to get the 
initial value of the instance variable for this instance. As can be seen in the 
output of this program, this value is null as we did not define any initial or 
default value for the instance variable. 

Third, we invoke the Set_instance_variable method to set the 
instance variable with a given value. For our program this could be any legal 
character. 
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Fourth, we invoke the Get_instance_variable method to get the 
current value of the instance variable for this instance. As expected, the value 
returned is that set by the previous Set_instance_variable method. 

Finally, after following these four steps for each instance, we again 
send each instance the message Get_instance_variable. As expected, each object 
has maintained its own value for the instance variable. 

3. Sequential Execution Summary 

The class variable, as pointed in Chapter II, depends on how the object- 
oriented language being used supports inheritance. One of the following 
properties are supported: 

• it is shared by all the classes related by inheritance. 

• it is duplicated for each new subclass, so changing the value in one class 
does not modify the other classes. 

However, the class variable in each class is always a shared variable for 
that particular class. This is as we observed in the previous exf)eriments. This 
means that every instance of the class has access to this variable, and nothing 
outside the class can access it without using the appropriate method. Classic- 
Ada, however, supports the first notion above as an inherited class variable is 
shared by all instances of each class related by inheritance. It is not possible to 
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have any kind of shared variable between two classes if there is no inheritance 
relation*. 

Each instance of a class has its own private set of instance variables. 
In other words, memory storage is allocated to maintain the internal 
representation for each instance of a class. Thus, the instance variable is a shared 
variable, but only within an object; more specifically, it is shared between the 
methods of the object. The problem arises if we want shared data between only 
some methods, but not between others. Once again consider Figure 2. For 
example, what if we would like to have a variable that only Method_X in object 
A1 can access (i.e., Method_Y and Method_Z cannot access it)? Alternatively, 
how could we have a variable shared by Method_X and Method_Y in an instance 
(object) such as Al, but not by a Method_Z? This is not possible in any object- 
oriented programming language that we know of. This is one concept that we 
are investigating in this thesis. Our proposals will be discussed in Chapter IV. 


B. CONCURRENT EXECUTION 

With the term concurrent execution we mean the ability to have two or more 
processes running at the same time; that is, some form of multiprocessing. This 
could be a parallel system with several processors (i.e., a multiprocessor), or a 


* It is obvious that we can use some form of a global variable in the program, 
but this is not acceptable since the majority of literature on the designing object- 
oriented system software advises readers to avoid using this kind of variable. 
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uniprocessor with simulated multiprocessing (via some form of context 
switching). 

1. Concumncy In A Uniprocessor Environment 

It should be realized that in dus type of concurrency we do not have 
any real concurrent execution, as everything is actually being executed 
sequentially. 

a. Class Variable 

For this experiment we use the same class Alpha as previously 
defined and shown in Figure 3. We want to observe the responses of the class 
variable in a simulated concurrent environment. 

The main program, which creates and manipulates instances of the 
class Alpha, is in the file program_CV_conc.ca. Its output is in the file programjOV 
jconcscript. All files used in this section are in Appendix C, Section A. 

We have four tasks in the main program. Three are responsible for 
creating and manipulating objects, and the fourth task is the main procedure 
where we just print a simple message. To make sure that all the tasks are eligible 
to start running at the same time we give the same priority to each of the task, 
(pragma priority (1)). After creating an object, the three tasks apply methods in 
the following order: 

• Get_class_variable to get the current value of the class variable for the 
object. 
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• Set_dass_variable to set the class variable with a new value. 


• Get_dass_variable again to get the current value of the dass variable for the 
object. 


The main task just prints the word "ntain" so that we can observe 
when this task runs. We expect after die beginning of the main program that the 
three tasks run in parallel with the main one. Note that before the main 
procedure can end the other tasks in the system have to finish. The output of the 
execution program indicates that the tasks executed in the following order 

• main procedure begins 

• object A3 created and manipulated 

• object A2 created and manipulated 

• object A1 created and manipulated 

• main procedure ends 

The reason that the system chose to run the task manipulating 
object A3 before the other tasks is purely arbitrary as the same priority was 
spedfied for all. The results also indicate that the tasks did finish before the main 
procedure ended. 

As expected, the value of dass variable for each instance of for 
each task is reflected as the 'initial' value for the next object, regardless of which 
task created and manipulated the object. Thus, the dass variable is shared 
between all objects regardless of which task is involved. 
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Notice that in the main program that we put the invocation of the 
methods delete at the end of the main procedure (task). This is because we knew 
the running order of the tasks (i.e., that the main task finishes after all others) 
from previous experiments with all tasks with the same priority. Any statement 
after the 'main' runs after the finishing of the other tasks. 

b. Instance Variable 

For this experiment we again use the class Alpha as shown in 
Figure 4. We want to illustrate the use of instance variables in a simulated 
concurrent environment. 

The main program is the programJVjconc.ca, and its output is in 
the file program_IV_conc.script. All the files for this section are in Appendix C, 
Section B. We have the same structure as the previous main program 
(programjCVjconc.ca) except that we now have an instance variable rather than 
a class variable. 

The final output was as expected (in accordance with the class 
variable results), with the tasks executing in following order: 

• main procedure begins 

• object A3 created and manipulated 

• object A2 created and manipulated 

• object A1 created and manipulated 

• main procedure ends 
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As expected, the value of instance variable is autonomous cuid 
individualistic for each object; that is, it was not shared between the objects of the 
class. Ihus, an instance variable in a (X>ncurrent environment is still shared only 
in name and not by value between objects of the same class. 

2. Concurrency in a Multiprocessor Environment 

Parallel processing can be divided into two basic architectures: Shared 
Resource and Distributed Resource systems, as shown in Figure 7 [INM89]. 
Shared Resource systems execute the components of a problem on conventional 
CPU's. They are connected by a common bus to shared memory. A Distributed 
Resource system executes the parallel parts of a problem among hardware nodes. 
Each node runs its own program and includes a CPU with local memory. In our 
experiments, each node is a Transputer^. 

3. OOP In A Parallel System 

In this section we study variables in a multiprocessor environment. All 
programs used in this section were develop>ed in Classic-Ada and executed on a 
Transputer. 


’ Transputers are microprocessors built by Inmos, the English semiconductor 
manufacturer. A Transputer is a single VI^I device with processor, memory, 
and communications links for direct connection to other transputers. They 
operate as a stand alone machine, or as a node in a network interconnected via 
links. When in a network, each transputer operates on its own using only on chip 
memory and programs. Communication from one processor to another occurs 
over the links, each of which has a dedicated link interface. The communication 
interface is implemented in hardware and does not need the processor for its 
control. [INM89] 
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Before continuing, however, it is first necessary to give a brief 
description of the environment. 

a. Transputer 

A Transputer is a single device with processor, memory, and 
communications links for direct connections to other Transputers. 

(1) Communication. link communications run simultaneously with 
processor computation to maximi 2 e the performance of distributed systems. Each 
link carries information bidirectionally on two wires between a pair of transputers 
in the computing network. The links provide for direct communication between 
processes on neighboring transputers. Communication across the link uses a link 
protocol and is accomplished as a sequence of single byte transmissions. 

(2) Memory. Transputers are not designed to share memory; 
instead, each has its own dedicated memory'. The trartsputer also has a small 
amount of on-chip memory for faster access. On the T800 this is four Kbytes of 
static RAM. Also, four Gbytes of addressable external memory is possible. 

h. Two Objects, Each On Separate Transputers 

For this experiment we run each instance on a separate transputer. 
Thus, we expect to observe the problems previously discussed about concurrent 
environments in distributed systems. For this experiment we use the class Alpha 
as shown in Figure 3. All the programs used in this section are contained in 
Appendix D. Since we have two transputers, we need to have one program for 
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each of them. Thus, we created two programs named program_CV_trans.ca which 
are nearly identical; they differ only in the creation of di^erent objects (one 
generates the object A1 and the other object A2). The important issue in each 
program was to create one instance (object) and then change the value of the class 
variable to see if that change would affect the object residing on the other 
transputer. We compiled each program separately, then bind it with each group 
of files for each transputer, and then run the program. These two almost identical 
files are the Alpha_one.ada and AlphaJwojida files. 

We must point out here that the type of the class variable has been 
changed from character to integer as we encountered difficulties in debugging the 
configuration for the Occam’® files that we were using for the channels. Using 
integers, it was easier to configure the channels, unfortunately, the manuals 
[AA90] were not much help in this problem. 

Communication in the Classic-Ada programs was achieved via the 
implementation package CHANNELS. Both programs made use of the package 
COMMON which declared the data types used in channel communication. The 


The transputer architecture directly implements the process model of 
concurrency to describe parallel systems naturally and simply. This logical model 
is the basis of occam, the first general purpose language with built in support for 
both concurrency and communication. Occam is used to program transputers in 
a way that closely resembles real-world systems. It can also be easily combined 
with conventional high level languages in different ways to create parallel 
descriptions of problems. Occam and transputers were designed to complement 
each other in a powerful way. Occam is not only based on concepts of 
concurrency but also on communication concepts that relate directly to the 
transputer links.[INM89] 
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package COMMON also contained an instantiation of the generic package 
CHANNEL_IO which provided channel read and write operations. This package 
ensured that each program had a consistent view of the data communicated 
between them. Communication between d\e two programs occurred as follows: 

• After the Set_class_variable method in the random.ada hie we put the 
statement WRITE, so that the value of class_variablel would be put on the 
channel; from then on any other transputer existing in the network could 
READ the value of this variable. 

• After the first Get_class_variable method in the sieve.ada file we put the 
statement READ, so that we could get the new value of class_variablel from 
the channel. 

The output file program_CV_trans.script is also included in Appendix D. It 
is important to realize that since transputers do not have shared memory, each 
time the value changed it was necessary to send/receive to/from the channel in 
order to update the other objects. Thus, the user has to establish the point where 
the update of the values takes place. However, this means that the class variable 
does not always have the same value in all instances (objects) of a class. 

It is shared only by all instances residing on a single transputer until it is 
explicitly passed from one transputer to another. Thus, the class variable can no 
longer be considered to the shared between all instances of the class. 
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4. Concurrent Execution Summary 


As we observe in the sequential execution section, a class variable has 
the property of being shared between all objects of the same class and also 
between classes related by inheritance. 

In our concurrent programs in a uniprocessor environment we have 
reinforced the idea that on a class variable shared between all objects, regardless 
of which task is involved. What we have actually done is run a multiprocessing 
program on a uniprocessor to simulate a shared resource system (i.e., shared 
memory), since the opportunity to work on a distributed system with common 
memory as presented in Figure 7 did not exist. 

In a parallel system the experiment was conducted in a transputer 
environment (i.e., a distributed resource system) as depicted in Figure 7. The 
class variable has its value shared between all instances of a class on a single 
transputer, but not between transputers. Upon reflection this makes sense as 
what happened is that we essentially created several different (but duplicate) 
classes which just happen to have the same name. That is, the transputer is a 
distributed resource system and since the class definition is loaded (duplicated) 
on each processor's memory, then it should be exp>ected that changing value of 
class variable on one processor should have no affect on its value in another 
processor. 
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IV. METHOD VARIABLES 


As we have seen, variables in an object-oriented environment take one of 
two forms: they are either dass variables or instance variables. Qass variables 
belong to the dass; that is, they are shared by all instances of the class. Instance 
variables belong to individual objects. Although there are a few variations, such 
as how the dass variable is implemented when inherited and various options that 
modify the visibility of the variables, these are the only two kinds of variables 
available. 

It is questionable whether these two types of variables are enough for all 
situations. It has been suggested that we may wish to implement methods as 
individual processes with their own private state of variables [BN91]. This is one 
possible solution to the problem of implementating/modeling software processes 
in an OO environment. We may have several processes, each with its own 
private set of data, but they all manipulate a common ('global') set of data - this 
is not possible in any object-oriented programming language that we know of. 

Building on the results of the last chapter, we will now propose and 
experiment with varioiis forms of 'method variables' in an attempt to expand the 
number and types of variables available in an object-oriented environment. 
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Each object has a protocol, which is the set of messages that it can respond 
to (this is also called the external interface of the object). It is simply the 
collection of methods defined for the instances of its class. Each time we send a 
message to an instance (object), the method corresp>onding to the message's 
selector is executed. Typically, methods have formal parameters, and the values 
of the message's argument bind the formal parameters of the method before 
executing the method's code. The state of an object can be retrieved and updated 
through its methods. However, the method has no state of its own. According 
to [KA90], methods can be categorized as: 

• Those methods whose primary purpose is to retrieve or update variables. 

• More general methods performing complex computations. 

But our question is: can we have methods that perform complex 
computations using variables that are not accessible by other methods? That is, 
could a method maintain variables for itself only for a single instance (object)? 
We will now develop the general idea of an object-oriented language with this 
property. More specifically, we want to simulate the ability for a method to have 
data that is not accessible by other methods defined for the class. We begin by 
defining the concept of method variables, then explore how they are used in both 
sequential and concurrent execution environments. 
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A. METHOD VARIABLES 


We now introduce the method variable (mv), which can take the form of either 
a method class variable or a method instance variable, depending on which 
properties we want to give to the variable. The method instance variable (miv) is 
accessible by only a single method of a single object. The method class variable 
(mcv) is shared by all objects of a class, but is only accessible by a single method. 

Method variables can easily be incorporated into the class definition^' (see 
Figure 8). Each time we instantiate an object, it has the method variables that are 
dehned in the class definition for the given methods. Our approach to method 
variables follows the general properties of variables in an object-oriented 
language. That is, we can divide method variables into two main categories; 

• Method variables based on instance variables that are part of the private 
data of each object (method instance variables). 

• Method variables based on class variables that are shared by every object in 
the class (method class variable). 

Thus, each method variable inherits the properties of the type of variable where 
it is based on. 

Figure 8 shows how class definitions with method variables can be 
presented in a language independent manner. We use the example of class Alpha 
from the last chapter, adding method variables to some of the methods. 

"Since Classic-Ada class definitions are in two files, the specification and the 
body, the method variable will be declared in the body. 
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Qass Alpha 

Superclass: none 

Qass variables: cv 

Instance variables: iv 

Medtods : 

Method_X 

MethodJnstance_variables: 

X_mivl, X_miv2 

Method_class_variables: 

X_mcv 

Method_Y 

Method_instance_variables: 

none 

Method_class_variables: 

none 

Method_Z 

Method_instance_variables: 

Z_miv 

Method class variables: 

Z mcv 




Figure 8 The Class Definition with Method Variables 


The class Alpha has one class variable (cv), one instance variable (iv), and 
three methods (Method_X, Method_Y, and Method_Z). Method_X has two 
method instance variables (X_mivl and X_miv2) and a method class variable 
(X_mcv), Method_Y has no method class variables or method instance variables. 
Method_Z has one method instance variable (Z_miv) and one method class 
variable (Z_mcv). 

1. Method Instance Variables 

Method instance variables are based on instance variables. They can be 
thought of simply as instance variables that are only accessible by a single 
method. In Hgure 8, method instance variables are declared along with the 
method itself. In our test applications, however, this is not (>05sible. Instead, we 
declare them as instance variables that are 'dedicated' to the appropriate mediod 
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in order to achieve the simiilation of the desired properties of the method instance 
variable. That is, the instance variables are only used by the appropriate method 
as a method instance variable. 

The basic idea of a method instance variable though, turns out to be 
fairly simple: we keep all the prop)erties of an instance variable, but the variable 
is now implemented and maintained at a level lower than normal in an object- 
oriented environment - they are now maintained inside the method. 

We now have methods with variables that are not accessible by other 
methods of the same object of a given class, as can be seen in Figure 9. The 
X_mivl and X_miv2 are accessible only from the Method_X, and Z_miv is 
accessible only from the Method_Z, for any given instance of class Alpha. 

Thus, we can simulate having a variable that is accessible by only a 
single method. This variable is not accessible by other methods defined for that 
class. Therefore we have succeeded in eliminating the problem of having all 
variables accessible by all methods in a given ol 'Ct. We have also extended the 
typ)es of shared and private data in object-oriented environments. 

2. Method Qass Variables 

Method class variables are similar in concept to method instance 
variables. However, method class variables are shared in value by a single 
method for all instances of a class, whereas method instance variables are not 
shared in value. Thus, we have essentially created a class variable that is limited 
in accessibility to a single method of the class.In our test implementation, we 
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Figure 9 Method Instance Variable Accessibility in Class Alpha 
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create class variables which correspond to each method class variable that is 
defined inside a method. Once again, no actual modirications to the language 
itself were undertaken. 

We now have methods with variables that are shared by all instances 
of a given class. As can be seen in Figure 10, all instances of class Alpha have a 
Method_X which share the method class variable X_mcv. Similarly all instances 
of class Alpha have a Method_Z which share the method class variable Z_mcv. 


Cimmm Alplia 


CV 


Object A1 


Object A2 


Object A3 

iv 


iv 


iv 


Method.X 


Method_Y 

X mcv 








Figure 10 Method Class Variable Accessibility in Class Alpha 
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B. SEQUENTIAL EXECUTION 

In sequential execution it is relatively easy to examine the resix>nses of 
variables as they cannot be accessed by more than one process at a time. We now 
examine the use of method variables in a sequential environment. 

1. Method Instance Variables 

Following the approach used in the last chapter, we now define the 
class Alpha as shown in Figure 11. The purpose is to run methods in different 
objects using the method instance variables only for the particular method in each 
object. We have the methods Method_X, Method_Y, and Method_Z. Method_X 
has the method instance variable X_miv, and Method_Y has the method instance 
variable Y_miv. 

The specification and implementation files of class Alpha are the 
Alpha_specjniv.ca and Alpha_body_miv.ca. All files discussed in this section 
contained in Appendix E, Section A. In order to simulate the method instance 
variables, we have created instance variables that correspond to the method 
instance variables for each method. Thus, each time we use a method for an 
object, the method instance variable will still have the last value given to it when 
this particular method was used with the object. 

The main program file is the programjnivxa. CXir goal here is to 
observe the responses of the method instance variables in different methods and 
objects of a class. The output of the main procedure of the program is presented 
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Qass Alpha 
Superclass: none 

Class variables: none 

Instance variables: none 
Methods: 

Method_X 


Method class variables: none 

Method instance variables: X_nuv 

Method_Y 

Method class variables: none 

Method instance variables: Y_iniv 

Method_Z 

Method class variables: none 

Method instance variables: none 

Create 

Method class variables: none 

Method instance variables: none 

Delete 

Method class variables: none 

Method instance variables: none 


Figure 11 Class Alpha with Method Instance Variables 


in the file program_Tniv.script. In the main procedure we create two instances of 
class Alpha, and apply the methods in the order Method_X, Method_Y, 
Method_X, Method_Y. 

Each time we call a method we get the value of the instance variable 

corresp>onding to the method instance variable for that method. Note that even 

though we were able to declare a variable inside the method, this is actually a 

« 

temporary variable that only exists while the method is executing. Also note that 
there is nothing that keep>s other methods from accessing the instance variables 
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maintaining the values of the method instance variables - we are only defining 
and testing the concept at this time, not the actual implementation’^. 

As can be seen in the output, the initial value of the method instance 
variables was null, as no default value was given. Once the value of the method 
instance variable is set however, that value is still there the next time that the 
method is called. 

As expected, the values of the method instance variables are in 
accordance with the observations made in Chapter III. That is, values of the 
method instance variables are not shared by all objects, and each time we access 
a method for the same object the met^ instance variable has the value given to 
it the last time this method for that object was involved. Although there is 
nothing in place at this time to keep other methods from accessing the instance 
variables maintaining the values of the method instance variables, we have 
simulated the ability for each method to maintain its own value for the method 
instance variables inside each object. 

It is reasonable to expect method instance variables to behave similarly 
to instance variables when inheritance is considered. That is, if a method with 
method instance variables is inherited, then every instance of the subclass will 
have that method, each with its own private copy of the method instance variable. 

i2^e feel that this is no different from many early object-oriented 
programming languages which did not provide for encapsulation of any kind. 
Although access to variables from outside the object was not prevented, the basic 
concepts were still there. 
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Qass Alpha 


Superclass: none 


Class variables: none 


Instance variables: none 


Methods: 


Method.X 


Methcxl class variables: 

none 

Methcxi instance variables: 

X_miv 

MethcxJ_Y 


Method class variables: 

none 

Methcxl instance variables: 

Y_iniv 

Method.Z 


Method class variables: 

none 

Method instance variables: 

none 

Create 


Method class variables: 

none 

Methcxl instance variables: 

none 

Delete 


Method class variables: 

none 

Methcxl instance variables: 

none 

Qass Beta 


Superclass: none 


Class variables: none 


Instance variables: none 


Methods: 


Create 


Methcxl class variables: 

none 

Methcxl instance variables: 

none 

Delete 


Methcxl ciass variables: 

none 

Methcxl instance variables: 

none 


Figure 12 The Classes Definition 


Consider classes Alpha and Beta as shown in Figure 12. The class Beta inherits 
all variables and methods defined in the class Alpha, and the properties of those 
variables and methods. The files of class Beta are the Beta_spec_miv.ca and 
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Beta_body_miv.ca. All files used in thte section are contained in Appendix E, 
Section B, except for the class Alpha files (which have not changed) that are 
contained in Appendix E, Section A. 

In this experiment we want to verify that inherited method instance 
variables behave as expected. The main program is the Program_mivJnher.ca. and 
its output is contained in Program_mivJnher.script. Objects are created and 
manipulated in the following order 

• First instance of class Alpha (object Al) 

• First instance of class Beta (object Bl) 

• Second instance of class Alpha (object A2) 

• Second instance of class Beta (object B2) 

We then invoke messages in the order Method_X, Method_Y, Method.X, 
Method_Y. 

As can be seen in the output of this program, the values of the method 
instance variables are not shared by objects and methods. Each time we use a 
method in the same instance (object), it has the value given to it the last time this 
method was involved. Thus the, method instance variable is inherited properly 
by the subclass, keeping the property of not being shared between the methods 
of an object. 
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2. Method Class Variables 


To illustrate the use of method class variables, we define the class 
Alpha as presented in Figure 13. 


Qass Alpha 


Superclass: none 


Class variables: none 


Instance variables: none 


Methods: 


Method_X 


Method class variables: 

X_mcv 

Method instance variables: 

none 

Method.Y 


Method class variables: 

Y_mcv 

Method instance variables: 

none 

Method_Z 


Create 


Method class variables: 

none 

Method instance variables: 

none 

Delete 


Method class variables: 

none 

Method instance variables: 

none 


Figure 13 Class Alpha with Method Class Variables 


The files with the specification and implementation of class Alpha are 
the Alpha_spec_mcv.ca and Alpha_body_mcv.ca. The main program, which creates 
instances of the class Alpha and manipulates them, is the file program_mcv.ca, and 
the output is in the file programjncvscript. Our goal here is to observe the value 
responses of method class variables through different methods and objects of a 
class. The source code of all files discussed in this section are contained in 
Appendix F, Section A. 
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In the main procedure, we create two instances of dass Alpha and 
apply methods in the order Method_X, Me<hod_Y, Method_X, Method_Y. Each 
time we call a method, we get the value of the class variable used to implement 
of the corresponding method dass variable for that method. As with method 
instance variables, we are only exploring and defining the concept and are not 
concerned with the actual implementation. 

As can be seen in the output, the value of the method class variable is 
the one given the last time this particular method called, regardless of the object 
involved. Thus the value of the method dass variable for each method is not 
shared between the methods of the object, but is shared between the same 
methods of the different instances in the same dass. 

As with method instance variables, it is reasonable to expect method 
class variables to behave similarly to class variables when inheritance is 
considered. To demonstrate this, we now define the dass Beta as a subdass of 
Alpha, as shown in Figure 14. 

The main program is the ProgramjncvJnher.ca. and its output is 
contained in ProgramjncvJnherscript. The files of dass Beta are the 
Beta_spec_mcv.ca and Beta_body_mcv.ca. All files used in this section are contained 
in Appendix F, Section B except for the class Alpha files (which have not 
changed) that are in Appendix F, Section A. Objects are aeated and manipulated 
in the following order: 
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Qass Alpha 


Superclass: none 


Class variables: none 


Instance variables: none 


Methods: 


Method_X 


Method class variables: 

X_mcv 

Method instance variables: 

none 

Method_Y 


Method class variables: 

Y_mcv 

Method instance variables: 

none 

Create 


Method class variables: 

none 

Method instance variables: 

none 

Delete 


Method class variables: 

none 

Method instance variables: 

none 

Qass Beta 


Superclass: Alpha 


Class variables: none 


Instance variables: none 


Methods: 


Create 


Method class variables: 

none 

Method instance variables: 

none 

Delete 


Method class variables: 

none 

Method instance variables: 

none 


Figure 14 Classes Alpha and Beta Definition 


• First instance of class Alpha (object Al) 

• First instance of class Beta (object Bl) 

• Second instance of class Alpha (object A2) 

• Second instance of class Beta (object B2) 
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Methods are then invoked in the order Method_X, Method_Y, 
Method_X, Method_Y. Each time we invoke a method we get the corresponding 
class variable for that method's method class variable. 

As can be seen in the output, the value of the method class variable is 
the one given to it the last time this particular method was allied, regardless of 
the object involved (or its class). Thus, the value of the method variable for each 
method is not shared between the methods of the instance (object), but is shared 
between all of the instances of a class and its subclass. 

C CONCURRENT EXECUTION 

We will now show that the concept of method variables is also valid in a 
concurrent environment. 

1. Concurrency In a Uniprocessor Environment 

For these experiments we use the class Alpha as previously defined and 
shown in Figures 11 and 13. We want to illustrate the use of method class 
variables and method instance variables in a simulated concurrent environment, 
observing the responses of the variable. 

a. Method Instance Variables 

The main program, which creates instances of the class Alpha and 
manipulates them, is in the file programjniv_conc.ca and the output is in the file 
program_miv_concscript. All files used in this section are in Appendix G, Section 
A. We have three tasks in the main program; tl and t2 which create objects and 
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send messages that invoke the methods that we want to experiment with, and the 
main procedure prints a simple message. To make sure that all the tasks will 
start running at the same time, we give the same priority to each task (pragma 
priority (1)). Each of the tasks tl and t2 create an object of class Alpha and we 
apply the methods in the order Method_X, Method_Y, Method_X, Method_Y. 

In the main task we have printed the word "main” so that we can 
observe when this task runs. After beginning the main program, we expect that 
the two tasks tl and t2 will run in parallel with the main one. Note that before 
the main procedure ends, the other tasks must finished first. The final output 
indicated that the program executed in the following order: 

• main procedure begins 

• object2 created and manipulated 

• objectl created and manipulated 

• main procedure ends 

The reason that the program chooses to run the task t2 first is 

arbitrary and dej^ends only on the system, since we gave the same priority for all 

tasks. The results also reinforce the statement that all other tasks, must finish 

before the main procedure ends. As expected, the value of the method instance 

« 

variable for each instance and also for each task is in accordance with the results 
obtained with instance variables in Chapter III. 


63 







b. Method Class Variables 


The main program, which creates instances of the class Alpha and 
manipulates them, is in the Hie program_mcv_conc.ca and the output is in the file 
program_mcv_conc.script. All files used in this section are in Appendix G, Section 
B. We have three tasks in the main program; tl and t2 which create objects and 
send messages that invoke the methods that we want to experiment with, and the 
main procedure prints a simple message. To make sure that all the tasks will 
start running at the same time, we give the same priority to each task (pragma 
priority (1)). Each of the tasks tl andt2 create an object of class Alpha and apply 
the methods in the order Method_X, Method_Y, Method_X, Method_Y. 

In the main task we have printed the word "main" so that we can 
observe when this task runs. After beginning the main program, we expect that 
the two tasks tl and t2 will run in parallel with the main one. Note that before 
the main procedure ends the system has to have finished all the other tasks. The 
final output indicated that the program executed in the following order: 

• main procedure begins 

• object2 created and manipulated 

• objectl created and manipulated 

• main procedure ends 

The reason that the program chooses to first run the task t2 first is 
arbitrary and depends only on the system, since we gave the same priority for all. 
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The results also reinforce the statement that all other tasks, must finished before 
the main procedure ends. As expected, the value of the method class variable for 
each instance and also for each task is in accordance with the results obtained 
with class variables in Chapter HI. 

2. Concurrency In a Distributed Environment 

The use of method variables in a system with distributed resources, 
such as a Transputer, is actually similar to sequential execution. This is because 
Transputers do not have shared memory. Therefore, each time that the value of 
shared variable changes we have to update it through the communication 
channels to the other objects, methods, and classes. We would expect that 
method class variables and method instance variables would behave exactly as 
class variables an instance variables in this type of environment. That is, method 
instance variables are private for each object, and method class variables are only 
shared by objects residing on a single transputer. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY AND CONCLUSIONS 

This thesis began with a survey of the literature which served as the basis 
for ideas as to possible answers to our questions of how to have shared data at 
different levels within an object-oriented system. It then studied Classic-Ada 
programs to build knowledge and gain the experience of working with this 
object-oriented programming language in different execution environments. 

The Classic-Ada programs served two main purposes. First, to study 
various aspects of variables in an object-oriented environment under different 
modes of execution. Secondly, to simulate how to implement and maintain both 
shared and private data at various levels in an object-oriented environment. 

Our suggested solution of a new type of variable, the method variable, 
attempts to satisfy the following investigative questions: 

1. Is it pxjssible for a single method to have data that is not accessible by 
other methods defined for that class? 

2. Is it possible for a single method to have data shared between various 
instances of a class but not accessible by other methods defined for that 
class? 
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B. RECOMMENDATIONS FOR FUTURE RESEARCH 


All of the cxxle developed for this thesis was implemented in Qassic-Ada. 
Although this is sufficient for a general proof of concept of method variables, 
implementation in other object-oriented languages may be worthwhile. 

More importantly though, method variables were added to an application, 
not to the language itself. That is, there is nothing in the language to prevent one 
method from accessing another method's method variables. Thus, a compiler, or 
at least a pre-processor, should be developed to enforce the accessibility of 
method variables. 

Both method instance variables and method class variables are accessible by 
only a single method. It may also be desirable to have variables that are 
accessible by more than one method of a class, but not by all of them. Although 
this may be useful concept in an object-oriented environment, developing a clear 
and concise way of declaring these variables is in need of further research. 

We have also not addressed the integrity of shared data in object-oriented 
environment. This is especially important in a concurrent or distributed system. 
Techniques used in conventional concurrent and distributed systems should be 
considered here, as should the sharing of data in database management 
systems. 
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APPENDIX A - SEQUENTIAL EXECUTION WITHOUT INHERITANCE 


A. CLASS VARIABLE 
1. Alpha_spec_CV.ca 

class Alpha is 

method Create (Newjnstance : out Objectjd ); 
instance method Get_class_variable; 

instance method Set_class_variable (temp_variable : in character); 
instance method Delete; 
end Alpha; 
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2. Alpha_body_CV.ca 


with textjo; 
use textjo; 

Class body Alpha is 

dass_variablel : Character; 

method Create ( newJnstance : out Object Jd) is 
begin 

new Jnstance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Get_class_variable is 
begin 

putjine ("The current value of the class_variablel at this object is:"); 

put(class_variablel); 

newjine; 

end Get_class_variable; 


instance method Set_class_variable (temp_variable : in character) is 
begin 

put_line ("The new value of the class_variablel is set and is"); 
class_variablel := temp_variable; 
put(class_variablel); 
newjine; 

end Set_class_variable; 

instance method Delete is 
begin 

putJineC'Now we delete from the memory this instance of class Alpha"); 
DESTROY; 
end Etelete; 

end Alpha; 
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3. Prograin_CV_one.ca 


with Alpha; 

procedure program_CV_one is 

Objectl ; Objectjd; 

Object2 : Objectjd; 

Objects : Objectjd; 

begin 

putJineC’Here is the begining of the objectl"); 

Objectl := Alpha.Class_object; 

send (Objectl, Create, newjnstance => Objectl); 

send (Objectl, Get_class_variable); 

send (Objectl, Set_class_variable, temp_variable => 'X'); 

send (Objectl, Get_class_variable); 

send (Objectl, Delete); 

put JineC'Here is the begining of the object2"); 

Object2 := Alpha.Class_object; 

send (Object2, Create, newjnstance => Object2); 

send (Object2, Get_class_variable); 

send (Object2, Set_class_variable, temp_variable => 'Y'); 

send (Object2, Get_class_variable); 

send (Object2, Delete); 

putJineC'Here is the begining of the objects"); 

Objects := Alpha.Class_object; 

send (Objects, Create, new_instance => Objects); 

send (Objects, Get_class_variable); 

send (Objects, Set_class_variable, temp_variable => 'Z' ) 

send (Objects, Get_class_variable); 

send (Objects, Delete); 

end program_CV__one; 
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4. Program_CV_one.8cript 

Here is the beginning of the objectl 
in method create 

The current value of die dass_variablel at diis object is: 

The new value of the class_variablel is set and is : 

X 

The current value of the class_variablel at this object is: 

X 

Now we delete from the memory this instance of class Alpha 

Here is the beginning of the object2 
in method create 

The current value of the class_variablel at this object is: 

X 

The new value of the class_variablel is set and is : 

Y 

The current value of the class_variablel at this object is: 

Y 

Now we delete from the memory this instance of class Alpha 

Here is the beginning of the objects 
in method create 

The current value of the class_variablel at this object is: 

Y 

The new value of the class_variablel is set and is : 

Z 

The current value of the class_variablel at this object is: 

Z 

Now we delete from the memory this instance of class Alpha 
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5. Program_CV_lwo.ca 


with Alpha; 

with textjo; use textjo; 

procedure prograin_CV_two is 

Objectl : Object_id; 

Object2 : Object_id; 

Objects : Objectjd; 

begin 

Objectl := Alpha.Class_object; 

send (Objectl, Create, newjnstance => Objectl); 

send (Objectl, Get_class_variable); 

send (Objectl, Set_class_variable, temp_variable => 'X'); 

send (Objectl, Get_class_variable); 

Object2 := Alpha.CIass_object; 

send (Object2, Create, newjnstance => Object2); 

send (Object2, Get_class_variable); 

send (Object2, Set_class_variable, temp.variable => 'Y'); 

send (Object2, Get_class_variable); 

Objects := Alpha.Class_object; 

send (Objects, Create, newjnstance => Objects); 

send (Objects, Get_class_variable); 

send (Objects, Set_class_variable, temp_variable => 'Z'); 

send (Objects, Get_class_variable); 


putJineCNow we destroy the objects"); 
send (Objectl, Delete); 
send (Object2, Delete); 
send (Objects, Delete); 

end program_CV_two; 
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6. Program_CV_twojW3ipt 

Here is the beginning of the objectl 
in method create 

The current value of the class_variablel at this object is: 

The new value of the class_variablel is set and is : 

X 

The current value of the class_variablel at this object is: 
X 

Here is the beginning of the object2 
in method create 

The current value of the class_variablel at this object is: 
X 

The new value of the class_variablel is set and is : 

Y 

The current value of the class_variablel at this object is: 

Y 

Here is the beginning of the objects 
in method create 

The current value of the class_variablel at this object is: 

Y 

The new value of the class_variablel is set and is : 

Z 

The current value of the class_variablel at this object is: 
Z 


Now we destroy the objects 

Now we delete from the memory this instance of class Alpha 

Now we delete from the memory this instance of class Alpha 

Now we delete from the memory this instance of class Alpha 
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B. INSTANCE VARIABLE 
1. Alpha_spec_IV.ca 

class Alpha is 

method Create (New_Instance : out Objectjd ); 
iiistance method Get_mstance_variable; 

instance method Set_instance_variable (temp_variable : in character); 
instance method Delete; 
end Alpha; 
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2. Alpha_body_IV.ca 


with text_io; 
use textjo; 

Class body Alpha is 

instance_variablel : instance Character; 

method Create ( newjnstance : out Objectjd) is 
begin 

newjnstance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Getjnstance_variable is 
begin 

putjine ("The current value of the instance_variablel at this object is:"); 

put(instance_variablel); 

newjine; 

end Getjnstance_variable; 

instance method Set_instance_variable (temp_variable: in character) is 
begin 

putjine ("The new value of the instance_variablel is set and is :"); 
instance_variablel := temp_variable; 
put(instance_variablel); 
newjine; 

end Set Jnstance_variable; 

instance method Delete is 
begin 

put JineCNow we delete from the memory this instance of class Alpha"); 
DESTROY; 
end Delete; 

end Alpha; 
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3. Progcam.rV.ca 


with Alpha; 
with Beta; 

with text_io; use text_io; 

procedure prograin_rv is 

Objectl : Objectjd; 

Object2 : Objectjd; 

Objects : Objectjd; 

begin 

putJineC’Here is the beginning of the objectl"); 

Objectl := Alpha.Class_object; 

send (Objectl, Create, new_instance => Objectl); 

send (Objectl, Get_instance_variable); 

send (Objectl, Setjnstance_variable, ten\p_variable => 'X'); 

send (Objectl, Getjnstance_variable); 

newjine; 

putJineC-"); 

newjine; 

putJineC'Here is the beginning of the object2’’); 

Object2 := Alpha.Class_object; 

send (Object2, Create, new_instance => ObjectZ); 

send (Object2, Get Jnstanoe_vari able); 

send (Object2, Set_instance_variable, temp_variable => 'Y'); 

send (Object2, C3et_instance_variable); 

newjine; 

putJineC-"); 

newjine; 

putJineC'Here is the beginning of the objects"); 

Objects := Alpha.Class_object; 

send (Objects, Create, new_instance => Objects); 

send (Objects, Get_instance_variable); 

send (Objects, Set_instance_variable, temp_variable => 'Z'); 

send (Objects, Get Jnstance_variable); 

putJineC’-"); 

newjine; 
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putJineC'Results"); 

newjine; 

put_line("The value for A1 is:"); 
send (Objectl, Get_instance_variable); 
newjine; 

putJineC-"); 

newjine; 

putJineCThe value for A2:"); 

send (Object2, Get_instance_variable); 

newjine; 

putJineC-"); 

newjine; 

putJineC'The value for A3:"); 

send (Objects, Get Jnstance_variable); 

newjine; 

putJineC*-"); 

putJineC'Now we destroy the objects"); 
send (Objectl, Delete); 
send (Object2, Delete); 
send (Objects, Delete); 


end program,JV; 
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4. Pn>gnun_rV.8cript 


Here is the beginning of the objectl 
in method create 

The current value of the instance_variablel at this object is: 

The new value of the instance.variablel b set and b : 

X 

The current value of the instance_variablel at thb object b: 
X 


Here is the beginning of the object2 
in method create 

The current value of the instance_variablel at this object b: 

The new value of the instance_variablel is set and b : 

Y 

The current value of the instance_variablel at this object b: 

Y 


Here is the beginning of the objects 
in method create 

The current value of the instance_variablel at this object b: 

The new value of the instance_variablel is set and b : 

Z 

The current value of the instance_variablel at this object b: 
Z 


Resulb 

The value for A1 is: 

The current value of the instance_variablel at this object b: 
X 
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The value for A2: 

The current value of the instance_variablel at this object is: 
Y 


The value for A3: 

The current value of the instance_variablel at this object is: 
Z 


Now we destroy the objects 

Now we delete from the memory this instance of class Alpha 
Now we delete from the memory this instance of class Alpha 
Now we delete from the memory this instance of class Alpha 
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APPENDIX B - SEQUENTIAL EXECUTION WITH INHERITANCE 

A. CLASS VARIABLE 
1. Alpha_spec_CV.ca 

class Alpha is 

method Create (New_Instance : out Objectjd ); 
instance method Get_class_variable; 

instance method Set_class_variable (temp_variable : in character); 
instance method Delete; 
end Alpha; 
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2. Alpha_body_CV.ca 


with text_io; 
use text_io; 

Class body Alpha is 

dass_variablel : Character; 

method Create ( newjnstance : out Objectjd) is 
begin 

newjnstance := INSTANTIATE; 
put_line("in method create”); 
end Create; 

instance method Get_class_variable is 
begin 

put_line ("The current value of the class_variablel at this object is:"); 

put(class_variablel); 

newjine; 

end Get_class_variable; 

instance method Set_class_variable (temp_variable : in character) is 
begin 

put_line ("The new value of the class_variablel is set"); 
putjine ("and is :"); 

class_variablel := temp_variable; 
put(class_variablel); 
newjine; 

end Set_class_variable; 

instance method Delete is 
begin 

putJineC'Now we delete from the memory this instance of class Alpha"); 
DESTROY; 
end Delete; 

end Alpha; 
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3. Beta_spec_CV.ca 


class Beta is 
superclass Alpha; 

method Create (Newjnstance : out Objectjd ) 
iixstance method Delete; 
end Beta; 
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4. Bela_body_CV.ca 


with text_io; 

use text_io; 

Class body Beta is 

method Create ( newjnstance : out Object_id) is 
begin 

new_instance := INSTANTIATE ; 

put_line("in method create"); 
end Create; 

instance method Delete is 
begin 

putJineC'Now we delete from the memory this instance of class Beta"); 

send ( super. Delete); 

DESTROY; 
end Delete; 

end Beta; 
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5. Program_CV_iiihcr.ca 


with Alpha; 
with Beta; 

with textjo; use text_io; 

procedure program_CV_inher is 

ObjectAl : Objectjd; 

ObjectA2: Objectjd; 

ObjectBl : Objectjd; 

ObjectB2 : Objectjd; 

begin 

newjine; 

putJineC'Here is the beginning of object Al*'); 
newjine; 

ObjectAl ;= Alpha.Class_object; 

send (ObjectAl, Create, newjnstance => ObjectAl); 

send (ObjectAl, Get_class_variable); 

send (ObjectAl, Set_class_variable , temp_variable => 

send (ObjectAl, Get_class_variable); 

new line; 

putJineC'-”); 

newjine; 

putJineC'Here is the beginning of object Bl"); 
newjine; 

ObjectBl := Beta.Class_object; 

send (ObjectBl, Create, newjnstance => ObjectBl); 

send (ObjectBl, Get_class_variable); 

send (ObjectBl, Set_class_variable , temp_variable => 

send (ObjectBl, Get_class_variable); 

newjine; 

putJineC-"); 

newjine; 






new_Une; 

putJineC’Here is the beginning of object A2"); 
mew_line; 

ObjectA2 := Alpha.Class_object; 

send (ObjectAZ, Create, new_instanoe => ObjectAZ); 

send (ObjectAZ, Get_dass_variable); 

send (ObjectAZ, Set_class_variable, temp_variable => 'Y'); 

send (ObjectAZ, Get_class_variable); 

newjine; 

put_line("-"); 

newjine; 

newjine; 

putJineC’Here is the beginning of object BZ"); 
mewjine; 

objectbZ := Beta.Class_object; 

send (ObjectBZ, Create, newjnstance => ObjectBZ); 

send (ObjectBZ, Get_dass_variable); 

send (ObjectBZ, Set_class_variable , temp_variable => 'N'); 

send (ObjectBZ, Get_class_variable); 

newjine; 

putJineC'-"); 

newjine; 


putJineC-Total Results-"); 

newjine; 

putJineC'The value of Al;"); 
send (ObjectAl, Get_class_variable); 
putJineCThe value of AZ:"); 
send (ObjectAZ, Get_dass_variable); 
putJineC'The value of Bl:"); 
send (ObjectBl, Get_dass_variable); 
putJineC'The value of BZ:"); 
send (ObjectBZ, Get_dass_variable); 
newjine; 

putJineC'for Al"); 
send (ObjectAl, Delete); 

putJineC'for AZ"); 
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send (ObjectA2, Delete); 


put_line("f6r Bl"); 
send (ObjectBl, E>elete); 

putJineC'for B2"); 
send (ObjectB2, Delete); 


end program_CV_inher; 





6. Piogram_CV_inher.script 


Here is the beginning of object A1 
in method create 

The current value of the class_variablel at this object is: 

The new value of the class_variablel is set and is : 

X 

The current value of the class_variablel at this object is: 
X 


Here is the beginning of object B1 
in method create 

The current value of the class_variablel at this object is: 
X 

The new value of the class_variablel is set and is : 

M 

The current value of the class_variablel at this object is: 
M 


Here is the beginning of the object A2 
in method aeate 

The current value of the class variablel at this object is: 
M 

The new value of the class_variablel is set and is : 

Y 

The current value of the class_variablel at this object is: 

Y 


Here is the beginning of object B2 
in method create 

The current value of the class_variablel at this object is: 
Y 

The new value of the class_variablel is set and is : 

N 

The current value of the class_variablel at this object is: 
N 
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■Total Results- 


The value of Al: 

The current value of the dass_variable1 at this object is: 
N 

The value of A2: 

The current value of the dass.variablel at this object is: 
N 

The value of Bl: 

The current value of the dass_variablel at this object is: 
N 

The value of B2: 

The current value of the dass_variablel at this object is: 
N 


for Al 

Now we delete from 
for A2 

Now we delete from 
for Bl 

Now we delete from 
Now we delete from 
for B2 

Now we delete from 
Now we delete from 


the memory this instance of dass Alpha 

the memory this instance of dass Alpha 

the memory this instance of dass Beta 
the memory this instance of dass Alpha 

the memory this instance of class Beta 
the memory this instance of class Alpha 
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B. INSTANCE VARIABLE 
1. Alpha_spcc_rv.ca 


class Alpha is 

method Create (Newjnstance : out Object_id ); 
instance method Get_instance_variable; 

instance method Set_instance_variable (temp_variable : in character); 
instance method Delete; 
end Alpha; 
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2. Alpha_body_IV.ca 


with textjo; 
use textjo; 

Class body Alpha is 

instance_variablel : instance Character; 

method Create ( newJnstance : out ObjectJd) is 
begin 

new_instance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Get Jnstance_variable is 
begin 

putjine ("The current value of the instance_variablel at this object is:"); 

put(instance_variablel); 

newjine; 

end Getjnstance_variable; 

instance method Set Jnstance_variable (temp_variable: in diaracter) is 
begin 

putjine ("The new value of the instance_variablel is set and is :"); 

instance_variablel := temp_variable; 

puKinstance_variablel); 

newjine; 

end Setjnstance_variable; 

instance method Delete is 
begin 

putJineC'Now we delete from the memory this instance of class Alpha"); 
DESTROY; 
end Delete; 

end Alpha; 
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3. BeU_8pec_IV.ca 


class Beta is 
superclass Alpha; 

method Create (New_Instance : out Object_id ); 
instance method Delete; 
end Beta; 
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4. Beta_body_rV.ca 


with textjo; 

use textjo; 

Class body Beta is 

method Create ( new Jnstance : out ObjectJd) is 
begin 

new Jnstance := INSTANTIATE ; 

put JineC’in method aeate"); 
end Create; 

instance method Delete is 
begin 

putJineC'Now we delete from the memory this instance of class Beta"); 

send ( super. Delete); 

DESTROY; 
end Delete; 

end Beta; 
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5. Prograin_IV_mher.ca 


with Alpha; 
with Beta; 
with text_io; 
use textjo; 

procedure prograin_IV_inher is 

ObjectAl : Objectjd; 

ObjectA2 : Objectjd; 

ObjectBl : Objectjd; 

ObjectB2 : Objectjd; 

begin 

newjine; 

putJineC’Here is the beginning of object Al"); 
newjine; 

ObjectAl := Alpha.Class_object; 

send (ObjectAl, Create, newjnstance => ObjectAl); 

send (ObjectAl, Getjnstance_variable); 

send (ObjectAl, Setjnstance_variable, temp_variable => 'X'); 

send (ObjectAl, Getjnstance_variable); 

newjine; 

putJineC’-"); 

newjine; 

putJineC'Here is the beginning of object Bl”); 

ObjectBl := Beta.Class_object; 

send (ObjectBl, Create, newjnstance => Object!31); 

send (ObjectBl, Getjnstance_variable); 

send (ObjectBl, Setjnstance_variable , teinp_variable => 'M' ) 

send (ObjectBl, Getjnstance_variable); 

newjine; 

putJineC-"); 

newjine; 

putJineC’Here is the beginning of the object A2"); 

ObjectA2 := Alpha.Class_object; 

send (ObjectA2, Create, newjnstance => ObjectAZ); 

send (ObjectAZ, GetJnstance_variable); 
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send (ObjectA2, Set_instance_variable , temp_variable => 'Y'); 
send (ObjectA2, Get_instance_variable); 
new line; 

putjine("-"); 

newjine; 

put_line("Here is the beginning of object B2"); 

objectb2 := 6eta.Class_object; 

send (ObjectB2, Create, newjnstance => ObJectB2); 

send (ObjectB2, Get_instance_variable); 

send (ObjectB2, Set_instance_variable , temp_variable => 'N'); 

send (ObjectB2, Get_instance_variable); 

newjine; 

putJineC’-"); 

newjine; 

putJineC-Total Results-"); 

newjine; 

putJineCThe value of Al:"); 

send (ObjectAl, Getjnstance_variable); 

putJineCThe value of A2:"); 

send (ObjectA2, Get Jnstance_variable); 

putJineCThe value of Bl:"); 

send (ObjectBl, Getjnstance_variable); 

putJineCThe value of B2:"); 

send (ObjectB2, Getjnstance_variable); 

newjine; 

putJineC’for Al"); 
send (ObjectAl, Delete); 

putJineC'for A2"); 
send (ObjectA2, Delete); 

putJineC’for Bl"); 
send (ObjectBl, Delete); 

putJineC’for B2’’); 
send (ObjectB2, Delete); 

end program_IVJnher; 
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6. Program_IV_iiiher.8cript 


Here is the begiiming of object A1 
in method create 

The current value of the instance_variablel at this object is: 

The new value of the instance_variablel is set and is : 

X 

The current value of the instance_variablel at this object is: 
X 


Here is the beginning of object B1 
in method create 

The current value of the instance_variablel at this object is: 

The new value of the instance_variablel is set and is : 

M 

The current value of the instance_variablel at this object is: 
M 


Here is the beginning of the object A2 
in method create 

The current value of the instance_variablel at this object is: 

The new value of the instance_variablel is set and is : 

Y 

The current value of the instance_variablel at this object is: 

Y 


Here is the beginning of object B2 
in method create 

The current value of the instance_variablel at this object is: 

The new value of the instance_variablel is set and is : 

N 

The current value of the instance_variablel at this object is: 
N 
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■Total Resuli 


The value of Al: 

The current value of the instance.variablel at this object is: 

X 

The value of A2: 

The current value of the instance_variablel at this object is: 

Y 

The value of Bl: 

The current value of the instance_variablel at this object is: 

M 

The value of B2: 

The current value of the instance.variablel at this object is: 

N 

for Al 

Now we delete from the memory this instance of class Alpha 
for A2 

Now we delete from the memory this instance of class Alpha 
for Bl 

Now we delete from the memory this instance of cla''-s Beta 
Now we delete from the memory this instance of class Alpha 
for B2 

Now we delete from the memory this instance uf class Beta 
Now we delete from the memory this instance of class Alpha 
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APPENDIX C - CONCURRENCY ON A UNIPROCESSOR 


A. CLASS VARIABLE 
1. Alpha_spec_CV.ca 

class Alpha is 

method Create (Newjnstance : out Object_id ); 
instance method Get_class_variable; 

instance method Set_class_variable (temp_variable : in character); 
instance method Delete; 
end Alpha; 
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Z A]pha_body_CV.ca 


with textjo; 
use textjo; 

Cass body Alpha is 

dass.variablel : Character; 

method Create ( new Jnstance : out ObjectJd) is 
begin 

new Jnstance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Get_class_variable is 
begin 

putjine ("The current value of the dass.variablel at this object is:"); 

put(class_variable1); 

newjine; 

end Get_class_variable; 


instance method Set_dass_variable (temp_variable : in character) is 
begin 

putjine ("The new value of the dass_variablel is set"); 
putjine ("and is :"); 

dass_variablel := temp_variablel; 
put(class_variablel ); 
newjine; 

end Set_dass_variable; 

instance method Delete is 
begin 

putJineC'Now we delete from the memory this instance of dass Alpha"); 
DESTROY; 
end Delete; 

end Alpha; 
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3. Prograin_CV_concca 


with Alpha; 
with textjo; 
use text_io; 

procedure program_CV_conc is 
pragma priority (1); 
task tl is 

pragma priority(l); 
end; 

task body tl is 
Objectl :Object_id; 
begin 

put_line("Here is the object Al"); 

Objectl := Alpha.Class_object; 

send (Objectl, Create, newjnstance => Objectl); 

put_line("in the first object after create"); 

send (Objectl, Get_class_variable); 

send (Objectl, Set_class_variable, temp_variable =>'X'); 

send (Objectl, Get_class_variable); 

newjine; 

putJineC-"); 

new_line; 
end tl; 

task t2 is 

pragma priority(l); 
end; 

task body t2 is 
Object2 : Objectjd; 
begin 

put_line("Here is the beginning of object A2"); 

Object2 := Alpha.Class_object; 

send (Object2, Create, newjnstance s> Object2 ); 

put_line("in the A2 object after create"); 

send (Object2, Get_class_variable); 

send (Object2, Set_dass_variable, temp_variable=>'Y'); 
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send (Object2, Get_dass_variable); 
newjine; 

putjineC'-"); 

newjine; 
end ti; 

task t3 is 

pragma priority(l); 
end; 

task body t3 is 
Objects : Object Jd; 
begin 

put JineC'Here is the beginning of the A3 object"); 

Objects ;= Alpha.Class_object; 

send ( Objects, Create, newjnstance => Objects ); 

putJineC'in the third object after create”); 

send (Objects, Get_dass_variable); 

send (Objects, Set_dass_variable , temp_variable=> 'Z'); 

send (Objects, Get_dass_variable); 

newjine; 

putJineC-”); 

newjine; 
end tS; 

begin 

putJineC'main"); 

putJineC'we are going do delete Objectl"); 
send (Objectl, Delete); 
put_line("we deleted objectl"); 
send (ObjectZ, Delete); 
put_line("we deleted object2"); 
send (Objects, Delete); 
putJineC'we deleted objects"); 
end program_CV_conc; 
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4. Piogiain_CV_coiicscript 

Here is the beginning of the A3 object 

in n\ethod create 

in the Uurd object after create 

The current value of the class.variablel at diis object is: 

The new value of the class_variablel is set and is : 

Z 

The current value of the class_variablel at this object is: 
Z 


Here is the beginning of object A2 

in method create 

in the A2 object after create 

The current value of the class_variablel at this object is: 
Z 

The new value of the class_variablel is set and is : 

Y 

The current value of the class_variablel at this object is: 

Y 


Here is the object A1 

in method create 

in the first object after create 

The current value of the class_variablel at this object is: 
Y 

The new value of the class_variablel is set and is : 

X 

The current value of the class_variablel at this object is: 
X 


main 

we are going do delete Objectl 

Now we delete from the memory this instance of class Alpha 
we deleted objectl 

Now we delete from the memory this instance of class Alpha 
we deleted object2 

Now we delete from the memory this instance of class Alpha 
we deleted objects 
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B. INSTANCE VARIABLE 
1. Alpha_8pec_rv.ca 


class Alpha is 

method Create (Newjnstance : out Objected ); 
instance method Get_instance_variable; 

instance method Set_instance_variable (temp_variable : in character) 
instance method Delete; 
end Alpha; 





2. Alpha_body_IV.ca 


with textjo; 
use textjo; 

Class body Alpha is 

instance_variablel : instance Character; 

method Create ( newjnstance : out ObjectJd) is 
begin 

new_instance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Getjnstance_variable is 
begin 

putjine ("The current value of the instance_variablel at this object is:"); 

put(instance_variablel); 

newjine; 

end C3etjnstance_variable; 

instance method Setjnstance_variable (temp_variable: in character) is 
begin 

putjine ("The new value of the instance_variablel is set and is :"); 
instance_variablel := temp_variable; 
put(instance_variablel ); 
newjine; 

end Setjnstance_variable; 

instance method Delete is 
begin 

putJineCTSJow we delete from the memory this instance of class Alpha"); 
DESTROY; 
end Delete; 

end Alpha; 


« 
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3. Prognun_rv_concca 


with Alpha; 

with textjo; use textjo; 

procedure program_IV_conc is 

Objectl :ObjectJd; 

Object2 : Objectjd; 

Objects : Objectjd; 

pragma priority (1); 

task tl is 

pragma priority(l); 
end; 

task body tl is 
begin 

putJineC'Here is the object Al"); 

Objectl := Alpha.Class.object; 

send (Objectl, Create, newjnstance => Objectl); 

putJineC'in the first object after aeate"); 

send (Objectl, Getjnstance_variable); 

send (Objectl, Setjnstance_variable, temp_variable =>'X'); 

send (Objectl, Getjnstance_variable); 

newjine; 

put_line("-"); 

newjine; 
end tl; 

task t2 is 

pragma priority(l); 
end; 

task body t2 is 
begin 

putJineC'Here is the beginning of object A2"); 

ObjectZ := Alpha.Class.object; 

send (Object2, Create, newjnstance => Object2 ); 

put_line("in the A2 object after create"); 

send (Object2, Getjnstance.variable); 
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send (ObjectZ, Set_instance_variable, temp_variable=>'Y'); 

send (Object2, Get_instance_variable); 

newjine; 

put_line("—-**); 

newjine; 
end t2; 

task t3 is 

pragnia priority(1); 
end; 

task body t3 is 
begin 

put Jine("Here is the beginning of the A3 object"); 

Objects := Alpha.Class_object; 

send ( Objects, Create, new_instance => Objects); 

put JineC'in the third object after create"); 

send (Objects, GetJnstance_variable); 

send (Objects, Setjnstance_variable , temp_variable=> 'Z'); 

send (Objects, Get Jnstance_variable); 

newjine; 

putJineC-"); 

newjine; 
end tS; 

begin 

putJineC'main"); 

putJineC'we are going do delete Objectl"); 
send (Objectl, Delete); 
putJineC’we deleted objectl"); 
send (ObjectZ, Delete); 
put_line("we deleted object2"); 
send (Objects, Delete); 
putJineC'we deleted objects"); 
end program_IV_conc; 
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4. Piognin_rV_conc.8cript 


Here is the beginning of the A3 object 

in method create 

in the third object after create 

The current value of the instance.vaiiablel at this object is: 

The new value of the instanoe.variablel is set and is : 

Z 

The current value of the instance.variablel at this object is: 
Z 


Here is the beginning of object A2 

in method create 

in the A2 object after create 

The current value of the instance.variablel at this object is: 

The new value of the instance_variablel is set and is : 

Y 

The current value of the instance_variablel at this object is: 

Y 


Here is the object A1 

in method create 

in the first object after create 

The current value of the instance.variablel at this object is: 

The new value of the instance_variablel is set and is : 

X 

The current value of the instance_variablel at this object is: 
X 


main 

we are going do delete Objecti 

Now we delete from the memory this instance of class Alpha 
we deleted objecti 

Now we delete from the memory this instance of class Alpha 
we deleted object2 

Now we delete from the memory this instance of class Alpha • 

we deleted objects 
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APPENDIX D - CONCURRENCY ON A MULTIPROCESSOR 


A. TWO TRANSPUTERS WITH CLASS VARIABLE 
1. Alpha_8pec_CV.ca 

class Alpha is 

method Create (Newjnstance : out Objectjd ); 
instance method Get_class_variable; 

instance method Set_class_variable (class_variablel : in out integer); 
instance method Delete; 
end Alpha; 
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2. Alpha_body_CV.ca 


with textjo; 
use text_io; 

Class body Alpha is 

package integer_mout is new integerJo(integer); 
use inte^r.inout; 
dass.variablel : Integer; 

Value: integer; 

method Create ( newjnstance : out Objectjd) is 
begin 

newjnstance := INSTANTIATE ; 
put JineC'in method create"); 
end Create; 

instance method Get_class_variable is 
begin 

putjine ("The current value of the class_variablel at this object is:"); 

put(class_variablel ); 

newjine; 

end Get_class_variable; 

instance method Set_class_variable (class.variablel: in out integer) is 
begin 

putjine ("The new value of the class.variablel is set "); 
putjine ("and is:"); 
put(class_variablel); 
newjine; 

end Set_class_variable; 

instance method Delete is 
begin 

putJineCTMow we delete from the memory this instance of class Alpha"); 
DESTROY; 
end Delete; 

end Alpha; 
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3. Program_CV_traiis.ca 


with Alpha; 
use Alpha; 

procedure proj is 

class_variable:integer; 
one : integer:=l; 
two : integer=2; 

Objectl : Objectjd; 

Object2 : Objectjd; 

begin 

Objectl := Alpha.Class_object; 

send (Objectl, Create, newjnstance => Objectl); 

send (Objectl, Get_class_variable); 

send (Objectl, Set_class_variable, class_variablel => one); 

send (Objectl, Get_class_variable); 

send (Objectl, Delete); 

Object2 := Alpha.Class_object; 
send (Object2, Create, newjnstance => Object2); 
send (Object2, Get_class_variable); 
send (Object2, Set_class_variable, class_variablel => two); 
send (Object2, C5et_class_variable); 
send (Object2, Delete); 
end proj; 
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4. Alpha^one^da 


WITH Classic.Executive; USE Classic_Executive; 

WITH Unchecked.Deallocation; 

WITH Unchecked_Conversion; 

WITH System; 
with Alpha; 
with COMMON; 
use COMMON; 
with CHANNELS; 

procedure Alpha_one is 

C : CHANNELS.CHANNEL_REF := CHANNELS.OUT_PARAMETERS (2); 

RESULT: int_16; 

Object2 : Objectjd; 

begin 

Object2 := Alpha.Class_object; 


DECL/.RE 

TY^E Parameter_Type iS RECORD 
New_Instanc': Objectjd; 

EI.DMCORD; 

i-arameter_Data : Parameter_Type; 

BEGIN 

send ( Object2,1, Assign (Parameter_Data'Address)); 
Object2 := Parameter_Data.NewJnstance; 

END; 

RESULT :=2; 

INTEGER JO. write(C, RESULT); 
send (Object2, 4 ); 


end Alpha_one; 
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5. Alpha_twoada 


WITH Classic_Executive; USE Classic_Executive; 
WITH Unchecked_Deallocation; 

WITH Unchecked_Conversion; 

WITH System; 
with Alpha; 
with textjo; 
with COMMON; 
use COMMON; 
with CHANNELS; 

procedure Alpha_two is 


C : CHANNELS.CHANNEL_REF := CHANNELS.IN_PARAMETERS (2); 

result: int_16; 

Objectl : Objectjd; 

begin 

Objectl := Alpha.Class_object; 

DECLARE 

TYPE Parameter_Type IS RECORD 
New_Instance : Objectjd; 

END RECORD; 

Parameter_Data : Parameter_Type; 

BEGIN 

send ( Objectl, 1, Assign (Parameter_Data'Address)); 

Objectl := Parameter_Data.New_Instance; 

END; 

send ( Objectl, 2 ); 
send ( Objectl, 3 ); 
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textJo.putC’I am going to read"); 
integer_io,read(C, result); 

text_io.put_line(int_16'IMAGE(result)); 

send ( Objectl, 2 ); 

send ( Objectl, 4 ); 

end Alpha_two; 
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6. Piogra]n_CV_tran8.script 


in method create 

The current value of the dass_variablel at this object is: 

0 

The new value of the class_variablel is set 
and is : 

1 

I am going to read 2 

The current value of the class_varaiblel at this object is: 

1 

Now we delete from the memory this instance of class Alpha 
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APPENDIX E - METHOD INSTANCE VARIABLES 


A. CLASSES WITHOLIT INHERITANCE RELATION 
1. Alpha_spec_miv.ca 

class Alpha is 

method Create (Newjnstance : out Objectjd ); 
instance method Method_X(temp_variable : in character); 
instance method Method_Y(temp_variable : in character); 
instance method Method_Z; 
instance method Deleter- 
end Alpha; 
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2. Alpha_body_miv.ca 


with textjo; 
use textjo; 

Class body Alpha is 

instance_variablel : instance Character; 

XJm instance Character; 

YJm instance Character; 

method Create ( newjnstance : out ObjectJd) is 

begin 

new_instance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Method_X(temp_variable: in character) is 
X_miv : Character; 
begin 

X_miv := XJm; 

putjine ("The value of X_miv in this method is:"); 

newjine; 

put(X_miv); 

new_line; 

X_nniv := temp_variable; 

putjine ("The new value of X_miv in this method is set and is:"); 

put(X_miv); 

newjine; 

XJm := X_miv; 
end Method_X; 

instance method Method_Y(temp_variable: in character) is 
Y_miv : Character; 
begin 

Y_miv := YJm; 

putjine ("The value of Y_miv in this method is:"); 

newjine; 

put(Y_miv); 

newjine; 

Y_miv := temp_variable; 

putjine ("The new value of Y_miv in this method is set and is:"); 
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puKY_miv); 

new_line; 

Y_im :=Y_miv; 
end Method_Y; 

instance method Method_Z is 
begin 
new_line; 
end Method_Z; 

instance method Delete is 
begin 
DESTROY; 
end Delete; 


end Alpha; 





3. Prog;ram_miv.ca 


with Alpha; 

with textjo; use text_io; 

procedure program_miv is 

Objectl : Objected; 

Object2 : Objectjd; 

begin 

putJineC'Here is the beginning of the objectl"); 

Objectl := Alpha.Class_object; 
send (Objectl, Create, newjnstanoe => Objectl); 
putJineC'Here is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'X'); 

putJineC-"); 

putJineC'Here is the Method_Y of the objectl"); 
send (Objectl ,Method_Y , temp_variable => 'Y'); 

putJineC-"); 

putJineC'Here is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'Z'); 

putJineC-"); 

putJineC'Here is the Method_Y of the objectl"); 
send (Objectl ,Method_Y , temp_variable => 'W'); 

newjine; 

putJineCEnd of A1-"); 

newjine; 

putJineC'Here is the beginning of the objectZ"); 

Object2 := Alpha.Class_object; 
send (Object2, Create, newjnstance => Object2); 
putJineC'Here is the Method_X of the object2"); 
send (Object2, Method_X, temp_variable => 'K'); 

putJineC--"); 

put JineCHere is the Method_Y of the object2"); 
send (Object2,Method_Y, teinp_variable => 'L'); 

putJineC-"); 

putJineC'Here is the Method_X of the object2"); 
send (Object2, Method_X, temp_variable => 'M'); 
putJineC-"); 
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put_line("Here is the Method_Y of the object2"); 
send (Object2,Method_Y , temp.variable => 'NO; 

putJineC-"); 

new_line; 

put_lme("End of A2-"); 

newjine; 

put_line("Now we destroy the objects"); 
send (Objectl, Delete); 
send (Object2, Delete); 

end program_miv; 
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4. Piogram_miv.8cript 


Here is the beginning of the objectl 
in method create 

Here is the Method_X of the objectl 
The value of X_miv in this method is: 

The new value of X_miv in this method is set and is: 
X 


Here is the Method_Y of the objectl 
The value of Y_miv in this method is: 

The new value of Y_miv in this method is set and is: 
Y 


Here is the Method_X of the objectl 
The value of X_miv in this method is: 

X 

The new value of X miv in this method is set and is: 
Z 


Here is the Method_Y of the objectl 
The value of Y_miv in this method is: 

Y 

The new value of Y_miv in this method is set and is: 
W 


End of A1 


Here is the beginning of the object2 
in method create 

Here is the Method_X of the object2 
The value of X_miv in this method is: 

The new value of X_miv in this method is set and is: 
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Here is the Method.Y of the object2 
The value of Y_iniv in this method is: 

The new value of Y_miv in this method is set and is: 
L 


Here is the Method_X of the object2 
The value of X_miv in this method is: 

K 

The new value of X_miv in this method is set and is: 
M 


Here is the Method_Y of the ob)ect2 
The value of Y_miv in this method is: 

L 

The new value of Y_miv in this method is set and is: 
N 


End of A2 
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B. CLASSES WITH INHERITANCE RELATION 
1. Beta_8pec_miv.ca 

class Beta is 
superclass Alpha; 

method Create (New_Instance : out Objectjd ); 
instance method Delete; 
end Beta; 
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2. Beta_body_miv.ca 


with textjo; 
use textjo; 

Class body Beta is 

method Create ( new Jnstance : out Object Jd) is 
begin 

new Jnstance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Etelete is 
begin 

send (super. Delete); 

DESTROY; 
end Delete; 

end Beta; 
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3. PTOgra]n_miv_iiiher.ca 


with Alpha; 
with Beta; 

with textjo; use textjo; 

procedure program_miv_inher is 

ObjectAl : Objectjd; 

ObjectA2 : Objectjd; 

ObjectBl : Objectjd; 

ObjectB2 : Objectjd; 

begin 

putJineC'Here is the beginning of the objectAl"); 
ObjectAl := Alpha.Class_object; 
send (ObjectAl, Create, newjnstance => ObjectAl); 
putJineC'Here is the Method_X of the objectAl"); 
send (ObjectAl, Method_X, temp_variable => 'X'); 

putJineC-"); 

putJineC'Here is the Method_Y of the objectAl"); 
send (ObjectAl,Method_Y , temp_variable => 'Y'); 

putJineC-"); 

putJineC'Here is the Method_X of the objectAl"); 
send (ObjectAl, Method_X, tenip_variable => 'Z'); 

putJineC-"); 

putJineC'Here is the Method_Y of the objectAl"); 
send (ObjectAl,Method_Y , temp_variable => 'W'); 

putJineC-"); 

newjine; 

putJineC'End of A1-") 

newjine; 

putJineC'Here is the beginning of the objectBl"); 
ObjectBl := Alpha.Class_object; 
send (ObjectBl, Create, newjnstance => ObjectBl); 
putJineC'Here is the Method_X of the objectBl"); 
send (ObjectBl, Method_X, temp_variable => 'X'); 

putJineC-"); 

putJineC’Here is the Method_Y of the objectBl"); 
send (ObjectBl ,Method_Y , temp_variable => 'Y'); 
putJineC-"); 
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put_line("Here is the Method_X of the objectBl"); 
send (ObjectBl, Method_X, temp_variable => 'Z'); 

putjine("-"); 

put_line("Here is the Method_Y of the objectBl”); 
send (ObjectBl,Method_Y, temp.variable => 'WO; 

put_line("-"); 

new_line; 

put_line("End of B1-"); 

newjine; 


putJineCHere is the beginning of the objectA2"); 
ObjectA2 := Alpha.Qass_object; 
send (ObjectA2, Create, newjnstance => ObjectA2); 
putJineC'Here is the Method_X of the objectA2"); 
send (ObjectA2, Method_X, temp_variable => 'KO; 

put_line("-"); 

putJineC'Here is the Method_Y of the objectA2"); 
send (ObjectA2,Method_Y, temp_variable => 'LO; 

putJineC-’’); 

putJineC'Here is the Method_X of the objectA2''); 
send (ObjectA2, Method_X, temp_variable => 'MO; 

putJineC-''); 

putJineC'Here is the Method_Y of the objectA2''); 
send (ObjectA2,Method_Y , temp_variable => 'N'); 

putJineC-''); 

newjine; 

putJineC'End of A2-"); 

newjine; 

putJineC'Here is the beginning of the objectBZ"); 

ObjectB2 := Alpha.Class_object; 
send (ObjectB2, Create, newjnstance => ObjectB2); 
putJineC'Here is the Method_X of the objectB2''); 
send (ObjectB2, Method_X, temp_variable => 'K'); 

putJineC-"); 

putJineCHere is the Method_Y of the objectB2''); 
send (ObjectB2,Method_Y, temp_variable => 'L'); 

putJineC-"); 

putJineCHere is the Method_X of the objectB2''); 
send (ObjectB2, Method_X, temp_variable => 'M'); 

putJineC-"); 

putJineCHere is the Method_Y of the objectB2''); 
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send (ObjectB2,Method_Y , temp_variable => 'NO; 

putJineC’-"); 

new_line; 

putJineC’End of B2-") 

newjine; 

put_line("Now we destroy the objects"); 
send (ObjectAl, E)elete); 
send (ObjectA2, Delete); 
send (ObjectBl, Delete); 
send (ObjectB2, Delete); 

end program_miv_inher; 
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4. PTOgram_iiiiv_i]iher.8cript 

Here is the begiiming of the objectAl 
in method create 

Here is the Method.X of the objectAl 
The value of X_miv in this method is: 

Tiie new value of X_miv in this method is set and is: 
X 


Here is the Method_Y of the objectAl 
The value of Y_miv in this method is: 

The new value of Y_miv in this method is set and is: 
Y 


Here is the Method_X of the objectAl 
The value of X_miv in this method is: 

X 

The new value of X_miv in this method is set and is: 
Z 


Here is the Method_Y of the objectAl 
The value of Y_miv in this method is: 

Y 

The new value of Y miv in this method is set and is: 
W 


End of A1- 

Here is the beginning of the objectBl 
in method create 

Here is the Method_X of the objectBl 
The value of X_miv in this method is: 

The new value of X_miv in this method is set and is: 
X 


Here is the Method_Y of the objectBl 
The value of Y_miv in this method is: 
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The new value of Y_iniv in this method is set and is: 
Y 


Here is the Method_X of the objectBl 
The value of X_miv in this method is: 

X 

The new value of X_miv in this method is set and is: 
Z 


Here is the Method_Y of the objectBl 
The value of Y_miv in this method is: 

Y 

The new value of Y_miv in this method is set and is: 
W 


End of B1- 

Here is the beginning of the objectA2 
in method create 

Here is the Method_X of the objectA2 
The value of X_miv in this method is: 

The new value of X miv in this method is set and is: 
K 

Here is the Method_Y of the objectA2 
The value of Y_miv in this method is: 

The new value of X_miv in this method is set and is: 
L 


Here is the Method_X of the objectA2 
The value of X_miv in this method is: 

K 

The new value of X_miv in this method is set and is: 
M 


Here is the Method_Y of the objectAZ 
The value of Y_miv in this method is: 
L 
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The new value of X_iniv in this method is set and is: 
N 


End of A2- 

Here is the beginning of d\e objectB2 
in method create 

Here is the Method.X of the objectB2 
The value of X_miv in this method is: 

The new value of X_miv in this method is set and is: 
X 


Here is the Method_Y of the objectB2 
The value of Y_miv in this method is: 

The new value of Y_miv in this method is set and is: 
Y 


Here is the Method^X of the objectB2 
The value of X miv in this method is: 

X 

The new value of X miv in this method is set and is: 
Z 


Here is the Method_Y of the objectB2 
The value of Y_miv in this method is: 

Y 

The new value of Y_miv in this method is set and is: 
W 


End of B2- 

Now we destroy the objects 
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APPENDIX F - METHOD CLASS VARIABLES 


A. CLASSES WITHOUT INHERITANCE 
1. Alpha_8pec_mcv.ca 

class Alpha is 

method Create (New_Instance : out Objectjd ); 
instance method Method_X(temp_variable : in character); 
instance method Method_Y(temp_variable : in character); 
instance method Deleter- 
end Alpha; 
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2. AlpluL.body_mcv.ca 

with text_io; 
use textjo; 

Qass body Alpha is 

X_mcv: Character; 

Y_mcv : Character; 

method Create ( newjnstance : out Objectjd) is 
begin 

new_instanoe := INSTANTIATE; 
putJineC'in method create”); 
end Create; 

instance method Method_X(temp_variable: in character) is 
begin 

putjine ("The value of X_mcv in this method is:"); 

new_line; 

put(X_mcv); 

new_line; 

X_mcv := temp_variable; 

putjine ("The new value of mv in this method is set and is:”); 
put(X_mcv); 
newjine; 
end Method_X; 

instance method Method_Y(temp_variable: in character) is 
begin 

putjine ("The value of Y_mcv in this method is:"); 

newjine; 

put(Y_mcv); 

newjine; 

Y_mcv := temp_variable; 

putjine ("The new value of mv in this method is set and is:"); 
put(Y_mcv); 
new_line; 
end Method_Y; 
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instance method Delete is 
begin 
DESTROY; 
end Delete; 


end Alpha; 





3. Piogram_mcv.ca 


with Alpha; 

with textjo; use text_io; 

procedure program_mcv is ♦ 

Objectl : Objectjd; 

Object2: Objectjd; 

begin 

putJineC'Here is the beginning of the objectl'*); 

Objectl := Alpha.aass_object; 
send (Objectl, Create, newjnstance => Objectl); 
putJineC'Here is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'X'); 

putJineC-"); 

putJineC'Here is the Method_Y of the objectl"); 
send (Objectl >Iethod_Y , temp_variable => 'Y'); 

putJineC-"); 

putJineCHere is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'Z'); 

putJineC-"); 

putJineC'Here is the Method_Y of the objectl"); 
send (Objectl,Method_Y , temp_variable => 'W'); 

putJineC-"); 

putJineC'End of A1-"); 

newjine; 

putJineC'Here is the beginning of the object2"); 

ObjectZ ;= Alpha.Class_object; 
send (Object2, Create, newjnstance => ObjectZ); 
putJineC'Here is the Method_X of the objertZ"); 
send (ObjectZ, Method_X, temp_variable => 'KO; 

putJineC-"); 

putJineC'Here is the Method_Y of the objectZ"); 
send (ObjectZ,Method_Y , temp_variable => 'L'); 

putJineC-"); ^ 

putJineC'Here is the Method_X of the objectZ"); 
send (ObjectZ, Method_X, temp_variable => 'M'); 

putJineC-"); * 

putJineC'Here is the Method_Y of the objectZ"); 
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send (Object2^ethod_Y , temp_variable => ' 

put_line("- 

put_line("End of A2- 

newjine; 

put_line("Now we destroy the objects"); 
send (Objectl, Delete); 
send (Object2, Delete); 
end program_mcv; 






4. Pfogram_jncv.8cript 


Here is the begiiming of the objectl 
in method create 

Here is the Method_X of the objectl 
The value of X_mcv in this me^od is: 

The new value of X mv in this method is set and is: 
X 


Here is the Method_Y of the objectl 
The value of Y_mcv in this method is: 

The new value of Y_mcv in this method is set and is: 
Y 


Here is the Method_X of the objectl 
The value of X_mcv in this method is: 

X 

The new value of X_mcv in this method is set and is: 
Z 


Here is the Method_Y of the objectl 
The value of Yjncv in this method is: 

Y 

The new value of Y_mcv in this method is set and is: 
W 


End of A1--- 

Here is the beginning of the object2 
in method create 

Here is the Method_X of the object2 
The value of X_mcv in this method is: 

Z 

The new value of X_mcv in this method is set and is: 
K 


Here is the Method_Y of the objectZ 
The value of Y_mcv in this method is: 

W 

The new value of Y_mcv in this method is set and is: 
L 
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Here is the Method_X of the object2 
The value of X_mcv in this method is: 

K 

The new value of X_mcv in this method is set and is: 
M 


Here is the Method_Y of the object2 
The value of Y_mcv in this method is: 

L 

The new value of Y_mcv in this method is set and is: 
N 


End of A2- 

Now we destroy the objects 


<• 
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B. CLASSES WITH INHERITANCE RELATION 
1. Beta^8pecjiiicv.ca 

dass Beta is 
superclass Alpha; 

method Create (New_Instance : out Objectjd ); 
instance method Delete; 
end Beta; 
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2. Beta_.body_mcv.ca 


with text_io; 

use textjo; 

Class body Beta is 

method Create ( new_instance : out Object_id) is 
begin 

new_instance := INSTANTIATE ; 

putJineC’in method create"); 
end Create; 

instance method Delete is 
begin 

send (super. Delete); 

DESTROY; 
end Delete; 

end Beta; 


\ 
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3. Prog]ram_mcv_inheT.ca 


with Alpha; 
with Beta; 
with textjo; 

use textjo; , 

procedure program_mcv_inher is 

ObjectAl : ObjectJd; 

ObjectA2 : Object Jd; 

ObjectBl : Object Jd; 

ObjectB2 : Object Jd; 

begin 

putJineC'Here is the beginning of the objectAl”); 

ObjectAl := Alpha.Class_object; 
send (ObjectAl, Create, newjnstance => ObjectAl); 
putJineC'Here is the Method_X of the ObjectAl"); 
send (ObjectAl, Meth(xi_X, temp_variable => 'X'); 

putJineC-"); 

putJineC'Here is the Method_Y of the ObjectAl"); 
send (ObjectAl ,Method_Y , temp_variable => 'Y'); 

putJineC-"); 

putJineC'Here is the Method_X of the ObjectAl"); 
send (ObjectAl, Method_X, temp_variable => 'Z'); 

putJineC-"); 

putJineC'Here is the Method_Y of the ObjectAl"); 
send (ObjectAl,Method_Y , temp_variable => 'W'); 

putJineC-"); 

putJineCEnd of A1-"); 

newjine; 

putJineC'Here is the beginning of the objectBl"); 

ObjectBl := Alpha.Class_object; 

send (ObjectBl, Create, newjnstance => ObjectBl); 

putJineC'Here is the Method_X of the ObjectBl"); 

send (ObjectBl, Method_X, temp_variable => 'X'); ^ 

putJineC-"); 

putJineC'Here is the Method_Y of the ObjectBl"); 

send (ObjectBl ,Method_Y, temp_variable => 'Y'); ^ 

putJineC-"); 
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putJineC’Here is the Method_X of the ObjectBl"); 
send (ObjectBl, Method_X, temp_variable => 'ZO; 

put_line("-"); 

put_line("Here is the Method_Y of the ObjectBl"); 
send (ObjectBl,Method_Y, temp_variable => 'W'); 

put_line("-"); 

put_line("End of A1-") 

new_line; 

putJineC'Here is the beginning of the ObjectA2"); 
ObjectA2 := Alpha.Class_object; 
send (ObjectA2, Create, newjnstance => ObjectA2); 
putJineC'Here is the Method_X of the ObjectA2"); 
send (ObjectA2, Method_X, temp_variable => 'K'); 

putJineC-"); 

putJineC'Here is the Method_Y of the ObjectA2"); 
send (ObjectA2,Method_Y , temp_variable => 'L'); 

putJineC-"); 

putJineC'Here is the Method_X of the ObjectA2"); 
send (ObiectA2, Method_X, temp_variable => 'M'); 

putJineC'Here is the Method_Y of the ObjectA2"); 
send (ObjectA2,Method_Y , temp_variable => 'NO; 
putJineC-"); 

putJineC'Here is the beginning of the ObjectB2"); 
ObjectB2 := Alpha.Class_object; 
send (ObjectB2, Create, newjnstance => ObjectB2); 
putJineC'Here is the Method_X of the ObjectB2"); 
send (ObjectB2, Method_X, temp_variable => 'K'); 

putJineC-"); 

putJineC'Here is the Method_Y of the ObjectB2"); 
send (ObjectB2,Method_Y, temp_variable => 'L'); 

putJineC-"); 

putJineC'Here is the Method_X of the ObjectB2"); 
send (Ob)ectB2, Method_X, temp_variable => 'M'); 

putJineC-"); 

putJineC'Here is the Method_Y of the ObjectB2"); 
send (ObjectB2,Method_Y, temp_variable => 'N'); 
putJineC-"); 
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put_line("Now we destroy the objects"); 
send (ObjectAl, Delete); 
send (ObjectBl, Delete); 
send (ObjectA2, Delete); 
send (ObjectB2, Delete); 
end program_mcv_inher; 


r 
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4. PT0gram_mcv_inher.8cript 


Here is the beginning of the objectAl 
in method create 

Here is the Method_X of the objectAl 
The value of X_mcv in this mediod is: 

The new value of X_mcv in this method is set and is: 
X 


Here is the Method_Y of the objectAl 
The value of Y_mcv in this method is: 

The new value of Y_mcv in this method is set and is: 
Y 


Here is the Method_X of the objectAl 
The value of X_mcv in this method is: 

X 

The new value of X_mcv in this method is set and is: 
Z 


Here is the Method_Y of the objectAl 
The value of Y_mcv in this method is: 

Y 

The new value of Y_mcv in this method is set and is: 
W 


End of A1- 

Here is the beginning of the objectBl 
in method create 

Here is the Method_X of the objectBl 
The value of X_mcv in this method is: 

The new value of X_mcv in this method is set and is: 
X 


Here is the Method_Y of the objectBl 
The value of Y_mcv in this method is: 
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The new value of Y_incv in tiiis method is set and is: 
Y 


Here is the Method_X of the objectBl 
The value of X_mcv in this method is: 

X 

The new value of X_mcv in this method is set and is: 
Z 


Here is the Method_Y of the objectBl 
The value of Y_mcv in this mediod is: 

Y 

The new value of Y_mcv in this method is set and is: 
W 


End of B1- 

Here is the beginning of the objectA2 
in method create 

Here is the Method_X of the objectA2 
The value of X_mcv in this me^od is: 

The new value of X_mcv in this method is set and is: 
K 


Here is the Method_Y of the objectA2 
The value of Y_mcv in this method is: 

The new value of X_mcv in this method is set and is: 
L 


Here is the Method_X of the objectA2 
The value of X_mcv in this method is: 

K 

The new value of X_mcv in this method is set and is: 
M 


Here is the Method_Y of the objectA2 
The value of Y_mcv in this method is: 
L 
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The new value of X_mcv in this method is set and is: 
N 


End of A2- 

Here is the beginning of the objectB2 
in method create 

Here is the Method_X of the objectB2 
The value of X_mcv in this method is: 

The new value of X_mcv in this method is set and is: 
X 


Here is the Method_Y of the objectB2 
The value of Y_mcv in this method is: 

The new value of Y_mcv in this method is set and is: 
Y 


Here is the Method_X of the objectB2 
The value of X mcv in this method is: 

X 

The new value of X_mcv in this method is set and is: 
Z 


Here is the Method_Y of the objectB2 
The value of Y_mcv in this method is: 

Y 

The new value of Y_mcv in this method is set and is: 
W 


End of B2- 

Now we destroy the objects 
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APPENDIX G > CONCURRENCY WITH METHOD VARIABLES 

A. METHOD CLASS VARIABLE 
1, Alpha_8pec_CV.ca 

class Alpha is 

method Create (New_Instance : out Ol^ectjd ); 
instance method Method_X(temp_variable : in character); 
instance method Method_Y(temp_variable : in character); 
instance method Delete; 
end Alpha; 
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2. Alpha_body_CV.ca 

with textjo; 
use textjo; 

Class body Alpha is 

X_mcv : Character; 

Y_incv : Character; 

method Create ( newJnstance : out ObjectJd) is 
begin 

new_instance := INSTANTIATE; 
putJineC'in method create"); 
end Create; 

instance method Method_X(temp_variable: in character) is 
begin 

put Jine ("The value of X_mcv in this method is:"); 

newjine; 

put(X_mcv); 

newjine; 

X_mcv := temp_variable; 

putjine ("The new value of mv in this method is set and is:"); 
put(X_mcv); 
newjine; 
end Method_X; 

instance method Method_Y(temp_variable: in character) is 
begin 

putjine ("The value of Y mcv in this method is:"); 

newjine; 

put(Y_mcv); 

new_line; 

Y_mcv := temp_variable; 

putjine ("The new value of mv in this method is set and is:"); 
put(Y_mcv); 
new_line; 
end Method_Y; 
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instance method Delete is 
begin 
DESTOOY; 
end Delete; 


end Alpha; 







3. Prognun_mcv_concca 


with Alpha; 

with text_io; use text_io; 
prcx^dure program_mcv_conc is 
pragma priority(1); 
task tl is 

pragma priority(l); 
end; 

task body tl is 
Objectl : Objectjd; 
begin 

putJineC’Here is the beginning of the objectl”); 

Objectl := Alpha.Class_object; 

send (Objectl, Create, newjnstance => Objectl); 

putJineC'Here is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'X'); 

putJineC-••); 

putJineC'Here is the Method_Y of the objectl’’); 
send (Objectl ,Method_Y , temp_variable => 'Y'); 

putJineC’-"); 

putJineC’Here is the Method_X of the objectl”); 
send (Objectl, Method_X, temp_variable => 'Z'); 

putJineC’- ••)■ 

putJineC’Here is the Method_Y of the objectl”); 
send (Objectl,Method_Y , temp_variable => 'W'); 

putJineC’-"); 

newjine; 

putJineC’End of A1-- 

newjine; 
end tl; 

task t2 is 

pragma priority(l); 
end; 
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task body t2 is 
Object: Objectjd; 

begin 

put_line("Here is the beginning of the 6bject2"); 

ObjectZ :s Alpha.Qass.^ject; 
send (Object2, Create, new_instance «> Object2); 
put_line<"Here is the Method.X of the object2"); 
send (Object2, Method_X, temp.variable => 'KO; 

put_line("-"); 

put_line("Here is the Method_Y of die object2"); 
send (Object2,Method_Y, temp_variable => ’U); 

put_line("-"); 

put_line("Here is the Method_X of die 6bject2''); 
send (Object2, Method_X, temp_variable => 'M'); 

put_line("-"); 

put_line("Here is the Method_Y of the object2"); 
send (Object2,Method_Y , temp_variable => 'N'); 

put_line("-*'); 

newjine; 

put_Une("End of A2-"); 

newjine; 
end t2; 

begin 

putJineC'main"); 
end program_mcv_cx)nc; 


148 





4. Prograin_mcv_conc.script 


Here is the beginning of the object2 
in method create 

Here is the Method_X of the object2 
The value of X_mcv in this method is: 


The new value of mv in this method is set and is: 
K 


Here is the Method_Y of the object2 
The value of Y_mcv in this method is: 


The new value of mv in this method is set and is: 
L 


Here is the Method_X of the object2 
The value of X_mcv in this method is: 

K 

The new value of mv in this method is set and is: 
M 


Here is the Method_Y of the object2 
The value of Y_mcv in this method is: 

L 

The new value of mv in this method is set and is: 
N 


End of A2- 

Here is the beginning of the objectl 
in method create 

Here is the Method_X of the objectl 
The value of X_mcv in this method is: 

M 

The new value of mv in this method is set and is: 
X 
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Here is the Method_Y of die objectl 
The value of Y_mcv in this method is: 

N 

The new value of mv in this method is set and is: 
Y 


Here is the Method_X of the objectl 
The value of X_mcv in this method is: 

X 

The new value of mv in this method is set and is: 
Z 


Here is the Method_Y of the objectl 
The value of Y_mcv in this method is: 

Y 

The new value of mv in this method is set and is: 
W 


End of A1 
main 


I 
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B. METHOD INSTANCE VARIABLE 
1. AIpha_spec.miv.ca 

class Alpha is 

method Create O^Jew_Iiistance : out Object_id ); 
instance method Method_X(temp_variable : in character); 
instance method Method_Y(temp_variable : in character); 
instance method E)elete; 
end Alpha; 


J 
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2. Alpha_body_miv.ca 


with textjo; 
use textjo; 

Class body Alpha is 

instance_variablel : instance Character; 

X Jm instance Character; 

YJm .'instance Character; 

method Create ( newjnstance : out Olqectjd) is 

begin 

new_instance := INSTANTIATE ; 
putJineC'in method create"); 
end Create; 

instance method Method_X(temp_variable: in character) is 
X_miv : Character; 
begin 

X_miv := XJm; 

put_line ("The value of X_miv in this method is:"); 

new_line; 

put(X_miv); 

newjine; 

X_miv := temp_variable; 

putjine ("The new value of X_miv in this method is set and is:"); 

put(X_miv); 

newjine; 

XJm := X_miv; 
end Method_X; 

instance method Method_Y(temp_variable: in character) is 
Y_miv : Character; 
begin 

Y_miv := Y_im; 

putjine ("The value of Y_miv in this method is:"); 

new_line; 

put(Y_miv); 

new_line; 

Y_miv := temp_variable; 

putjine ("The new value of Y_miv in this method is set and is:"); 
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put(Y_miv); 

new_line; 

Y_im :=Y_miv; 
end Method_Y; 

instance method Delete is 
begin 
DESTROY; 
end Delete; 


end Alpha; 








3. Program_miv_coiicca 


with Alpha; 

with textjo; use textjo; 

procedure program_iniv_conc is 
pragma priority(l); 

task tl is 

pragma priority(l); 
end; 

task body tl is 
Objectl : Objected; 
begin 

put_line("Here is the beginning of the objectl"); 

Objectl := Alpha.Class_object; 
send (Objectl, Create, newjnstance => Objectl); 
putJineC'Here is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'X'); 

putJineC-"); 

putJineC'Here is the Method.Y of the objectl"); 
send (Objectl ,Method_Y , temp_variable => 'Y'); 

putJineC-"); 

putJineC'Here is the Method_X of the objectl"); 
send (Objectl, Method_X, temp_variable => 'Z'); 

putJineC'-"); 

putJineC'Here is the Method_Y of the objectl"); 
send (Objectl,Method_Y , temp_variable => 'W'); 

putJineC-"); 

newjine; 

putJineCEnd of A1-"); 

newjine; 
end tl; 

task tl is 

pragma priority(l); 
end; 
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task body t2 is 
Object2 : Objectjd; 
begin 

put_line("Here is the beginning of the object2"); 
Object2 := Alpha.Class_object; 
send (Object2, Create, newjnstance => Object2); 
putJineC'Here is the Method_X of the object2"); 
send (Object2, Method_X, temp_variable => 'K'); 

put_line("-"); 

putJineC’Here is the Method_Y of the object2"); 
send (Object2,Method_Y, temp_variable => 'L'); 

putJineC-"); 

putJineC'Here is the Method_X of the object2"); 
send (Object2, Method_X, temp_variable => 'M'); 

putJineC'-"); 

putJineC'Here is the Method_Y of the object2"); 
send (Object2,Method_Y , temp_variable => 'N'); 

putJineC-"); 

newjine; 

putJineC'End of A2- 

newjine; 
end t2; 

begin 

putJineC’main"); 


end program_miv_conc; 





4. Piogram_miy_concsoript 


Here is the beginning of the object2 
in method create 

Here is the Method_X of the object2 
The value of X_miv in this method is: 

The new value of X_miv in this method is set and is: 
K 


Here is the Method_Y of the object2 
The value of Y_miv in this method is: 

The new value of Y_miv in this method is set and is: 
L 


Here is the Method_X of the object2 
The value of X_miv in this method is: 

K 

The new value of X_miv in this method is set and is: 
M 


Here is the Method_Y of the obj€Ct2 
The value of Y_miv in this method is: 

L 

The new value of Y_miv in this method is set and is: 
N 


End of A2 


Here is the beginning of the objectl 
in method create 

Here is the Method_X of the objectl 
The value of X_miv in this method is: 

The new value of X_miv in this method is set and is: 
X 
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Here is the Method_Y of the objectl 
The value of Y_miv in this method is: 

The new value of Y_miv in this method is set and is: 
Y 


Here is the Method_X of the objectl 
The value of X_miv in this method is: 

X 

The new value of X_miv in this method is set and is: 
Z 


Here is the Method_Y of the objectl 
The value of Y_miv in this method is: 

Y 

The new value of Y_miv in this method is set and is: 
W 


End of A1 
main 


i 
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